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1,08 ABSTRACT SEQ e003 


THE RPO4 FORMATTER I6 DESIGNED TO WRITE AND VERIFY 

HEADER AND DATA INFORMATION OW ALL POSSIBLE DISK 

PACK ADDRESSES WITH THE INTENTION OF TESTING THE 

RETENTIVITY OF THE RECORDING SURFACES, THE 

FORMAT I6 MAINTAINED ON A BASIS OF 4141 CYLINDERS, | 
19 TRACKS PER CYLINDER AND 22 SECTORS PER TRACK, 


2,0 REQUIRMENTS 
GPSESeeuwseees 
2,1 EQUIPMENT 
PDPo11 SYSTEM (12K CORE) 
RH7@ MASSBUS CONTROLLER 
ONE OR MORE RPO4 DISK DRIVES 
2,3 PRELIMINARY PROGRAMS 


ALL RPO4 DIAGNOSTICS SHOULD HAVE PREVIOUSLY 
BEEN RUN SUCCESSFULLY, 


3,2 LOADING PROCEDURE 


USE THE STANDARD ABSOLUTE LOADER FROM THE 12K OR 
HIGHER BANK OF MEMORY, 


4,0 STARTING PROCEDURE 


SPOSSSSSOSOOSSONSE 
4,1 STARTING ADDRESS 
LOAD AND START AT ADDRESS 200 


4,2 RESTARTING ADDRESS 
LOAD AND START AT ADDRESS 204 


4,3 RH70/RPO4 ADDRESSES 


THE PROGRAM HAS BEEN ASSEMBLED TO USE 176700 AS THE RH7O/RPO4 ADDRESS; 
THE VECTOR 16 ASSUMED TO BE 254, TO CHANGE THESE ADDRESSES, ENTER 
THE PROPER ADDRESS INTO THE LOCATION(S) GIVEN BELOW, 


Loce VALUE ruNcTion 

eee ereee ecocesoe 

1100 176700 RH7O/RPO4 UNIBUS ADDRESS 

1162 254 RH7® INTERRUPT VECTOR ADDRESS al 


2 eee 


SEQ weve 
4,4 SHITCH SETTINGS (S¥e1) 


5015 HALT OW ERROReee THE OPERATION IN PROGRESS 
WHEN THE ERROR OCCURED 18 POINTED TO BY 
THE PC LOCATED OW THE STACK, 


5414 LOOP ON THE cunntur CYLINDER AND TRACKeee 
ALLOWS THE USER TO LOCK ON A FAILING TRACK 
ETC oe 


S¥13 INHIBIT ERROR TYPEOUT 


S00 FORMAT (OR CHECK) CONTINUOUSLY 
5,0 OPERATING PROCEDURE 


SSSeFTSPSFOOGSSISESS 
5,1 ‘OPERATOR ACTION 


1, TURN THE SELECTED ORIVE ON LINE 

2, DISABLE THE WRITE PROTECT ON THE SELECTED DRIVE, 

3, WAIT FOR THE READY LIGHT INDICATION, 

4, THE OPERATOR WILL RESPOND TO THE TYPED REQUESTS 
BY INPUTTING THE FOLLOWING PARAMETERS; 


PARAMETER VALUES DEFAULT 


DRIVE @ @e7 € 
22 SECTOR 
(18 BIT) MODE Y OR w ¥ 
PROGRAM MODE rFoore r 
STARTING CYL, TREK 0°410,0°18 6,0 ¢ 
ENDING CYL, TREK 0°416,0°18 410,18 © 
SELECT PATTERN ZERO°S 
one’s 
WORST CASE WORST CASE @ 


© NORMAL FULL PACK FORMAT OPERATIONS SHOULD DEFAULT 
TO THESE VALUES, 


1, TYPING THE CHARACTER °D* WILL ASSUME THE DEFAULT 
VALUES, 

2, A *CONTROL C* COMBINATION WILL RETURN USER BACK TO. 
THE DRIVE HUMBER REQUEST DURING THE INPUT REQUESTS, 

3, A RUBOUT WILL RETYPE THE CURRENT LINE, 

4. THE SMpuT FOR PARTIAL PACK FORMATS MUST HAVE THE 
CYL AND TRK SEPARATED BY A COMMA AND THE LINE 
TERMINATED WITH A CARRIAGE RETURN, THE ENDING 
CYL,TRK ADDRESS MUST BE EQUAL TO OR GREATER THAN 
THE STARTING CYL, TRK ADDRESS, ALL LIMITS 
ARE INCLUSIVE, 

5, THE DATA PATTERN TO BE WRITTEN ON EACH SECTOR 
18 SELECTED BY TYPING THE DIGIT ASSOCIATED WITH 
THE PATTERN TYPED 

6, THE PROGRAM MAY BE RUN Zu *READ ONLY? MODE BY 
ENTERING A °C? (CHECK) IN THE RESPONSE TO THE 
*PROGRAM MODE® REQUEST MESSAGE, THE NORMAL OR 
DEFAULT MODE 16 °F? (FORMAT & VERIFY); THIS NODE 


16 SELECTED BY ENTERING A ede (DEFAULT) OR BY DI 


— — — — —— — — — — —— — — ——— — — — A 


ENTERING AN °F* IW RESPONSE TO THE °MODE® REQUEST, SEQ #005 
7, STARTING AND ENDING CYLINDER AND TRACK ADDRESS ENTRIES 
MUST BE IN FORMAT °CCC,TT® WHERE °CCC* 18 THE CYLINDER 
ADDRESS AND °TT® I8 THE TRACK ADDRESS, 
6, ALL ENTRIES EXCEPT THE “SELECT PATTERN® ENTRY AWD THE »o 
(DEFAULT) EWTRY MUST BE TERMINATED BY A CARRIAGE RETURN, 
9, THE PACK MAY BE FORMATTED IN 22 SECTOR (16 BIT) MODE 
OR IW 20 SECTOR (18 BIT) MODE, IF THE PACK IS FORMATTED 
IN 20 SECTOR MODE, BITS 16 & 17 OF EACH WORD WILL BE 
ZERO, ALL OF THE POPo11 RPO4 DIAGNOSTICS REQUIRE 22 
SECTOR FORMATS, 


5,2 PROGRAM ACTION 


AFTER THE PARAMETERS HAVE BEEW INPUTTED THE PROGRAF 
WILL FORMAT OR CHECK WITHIN THE LIMITS SPECIFIED, UPON 
COMPLETION OF THE FORMAT OR CHECK taus © 6), *FORMAT 
COMPLETE’ OR °CHECK COMPLETE’ WILL BE TYPED AND A NEW 
DRIVE NUMBER WILL BE REQUESTED, 

5,3 SUBROUTINE ABSTRACTS 


5,3,1 *RPO4? 
THIS ROUTINE If THE DRIVER FOR THE RPO DISK 
SYSTEM, IT I8 ENTERED UPOM ALL REQUESTS TO THE 
RPO4 ORIVE, 

5,3,2 ‘°ORINIT? 
THIS ROUTINE 16 USED TO INITIALIZE THE RPOS 


DRIVER, AT THE EXIT OF THIS ROUTINE THE AVAILABILITY 
OF EACH DRIVE HAS BEEN RECORDED IN TABLE DRVSTA, 


Se2eeen 
6,1 ENTRY ERRORS 


1, THE °??° MESSAGE IDENTIFIES AN ILLEGAL INPUT 
CHARACTER HAS BEEN TYPED, 


2, THE °?? CYLINDER LIMIT EXCEEDED’ MESSAGE INDICATES 
THE USER REQUESTED A CYLINDER GREATER THAW 410, 


3, THE °?? TRACK LIMIT EXCEEDED’ MESSAGE INDICATES 
THE USER REQUESTED A TRACK GREATER THAN 18, 


4, THE °?? ENDING DSK ADRS MUST BE EQUAL TO OR GREATER 
THAN THE STARTING ADRS® MESSAGE 18 SELFoEXPLANATORY, 
6,2 ERROR TYPEOUTSe REPORTED WITHIN THE DPIVER ROUTINE 


01 ILLEGAL SUBSYSTEM LWTERRUPT * 


— ——— ———— — — — — — — — —— — — —— — 


LLL cree 11111 11 


A SUBSYSTEM INTERRUPT OCCURED, BUT THE °SC* BIT IN SEG eevee 
RHCS1 I6S NOT SET, 


@2 ILLEGAL ORIVE INTERRUPT 
DRIVES DRIVE NUMBER 
RHA, © CONTENTS OF THE ATTENTION SUMMARY REGISTER 


RHCSi RHCS2 RHDSi RHERL RHER2 RHERI 
CONTENTS OF THE ABOVE REGISTERS 


THE INDICATED DRIVE SWTERRUPTED BUT THE DRIVE REGISTERS 
DO NOT SHOW A REASOW FOR THE INTERRUPT, 
#3 MASSBUS CONTROL BUS PARITY ERROR 

RD,ADR® ADDRESS OF THE REGISTER READ 

RO,WRDs CONTENTS OF THE WORD READ 


A CONTROL PARITY ERROR WAS DETECTED BY THE CONTROL 
UNIT WHEN THE INDICATED REGISTER WAS READ, 


64 CONTROL BUS PARITY ERROR 
WRT, ADS ADDRESS OF REGISTER WRITTEN 
WRT, WDe CONTENTS OF WORD WRITTEN 
RD,WROw WORD READ BACK 


THE ADDRESSED ORIVE DETECTED A PARITY ERROR WHEN 
THE CONTROLLER ATTEMPTED TO WRITE INTO THE INDICATED 
DRIVE REGISTER, 


6S ATTENTION FROM AN UNAVAILABLE DRIVE 
ORIVEs ORIVE BUMBER 
RHASS CONTENTS OF THE ATTENTION SUMMARY REGISTER 


RHCS1 RHCS2 RHDSi RMERI RHERZ2 RHERD 
CONTENTS OF THE ABOVE REGISTERS 


THE ATTENTION REGISTER HAS AWN ATTENTION BIT SET FOR 
A DRIVE WHICH 38 WOT CURRENTLY ACTIVE IN AW OPERATION, 


6,3 ERROR TYPEOUTSe REPORTED AT THE RETURN FROM THE DRIVER 


61 WRITE ERROR ( 
DRIVESX SNeX © ORIVE & SERIAL NUMBER 
CYL, TRKSXXX,XX © CYL © TRK WHERE ERROR OCCURED 


RHC6i RHC62 RHOS1 RHER{ RHER2 RHERS 
CONTENTS OF THE ABOVE REGISTERS 


THIS ERROR INDICATES AW ERROR OCCURED WHEN TRYING 
TO DO A WRITE HEADER & DATA COMMAND, THE PROGRAM 
wILL NOT ADVANCE BEYOND THE CYL,TRK TYPED UNTIL 
THE ERROR DISOLVES 
62 WRITE CHECK R 
DRIVEsX 6NeK © DRIVE & SERIAL NUMBER 
CYL, TRKSXXX,XX © DISK ADDRESS OF BAD SECTOR 
SECTORSXX © BAD SECTOR 
GOOD DATAGXXEXZX © DATA IN CORE 
BAD DATASXXXXXX © DATA READ FROM Disk 
RMECIGXXXXXX © LOCATION OF ERROR BURST 
RHECZGXXXXXX © ERROR BURST Fi 


ec MI, A = — — — — —— — —— — — 


RHCS1 RHC62 RHDS1 RHERI RHER2 RHERD SEQ vee? 
CONTENTS OF THE ABOVE REGISTERS 


RETRIES UNSUCCESSFUL © SECTOR NOT ACCEPTABLE 


THIS 18 THE TYPICAL ERROR TPYEOUT EXPECTED 
WHEN A FORMAT ERROR OCCURES, IT SUGGESTS THAT THE 
DISK SURFACE SPECIFIED 18 QUESTIONABLE, IF 

THE MESSAGE °RETRIES UNSUCCESSFUL’ 18 TYPED, 

THE PACK 3§ WOT ACCEPTABLE, 


63 HEADER COMPARE NOT MADE 
ORIVEssX SNSX © DRIVE & SERIAL NUMBER 
CYL, TRKSXXX,XX © CYL & TRK COMPARSJON ATTEMPTED 


RHC6i RHCGZ RHDS1 RHERG RHERZ2 RHERS 
CONTENTS OF THE ABOVE REGISTERS P 


REFORMAT PACK 


THIS ERROR INDICATES THE FAILURE TO READ A 
HEADER SUCCESSFULLY, THE POSITIONER COULD HAVE 
ADVANCED TOO FAR DURING THE FORMAT OPERATION, 


64 SOFTWARE HEADER COMPARE ERROR 
DRIVEssX SSX © DRIVE & SERIAL NUMBER 
EXPECTEDe CY¥L, TRKSXXX, XX ; 
READ © CYL, TRKBXXX, XX 


REFORMAT PACK 


THIS ERROR SUGGESTS THAT THE POSITIONER FAILED 
TO ADVANCE DURING THE FORMAT OPERATION, 


65 READ OR WRITE UNSAFE ERROR 
DRIVEsX SNeX © DRIVE & SERIAL NUMBER 
C¥L,TRKSKXX,XX © CYL & TRK WHEN UNSAFE OCCURED 


RHC6i1 RHC62 RHDS1 RHERL RKERZ RHERD 
CONTENTS OF THE ABOVE REGISTERS 


IF AN UNSAFE OCCURES THE FORMAT 16 TERMINATED, THE 
FORMAT SHOULD BE RESTARTED AT OR BEFORE THE CYLINDER 
WHERE THE UNSAFE DEVELOPED, THE TYPE OF UNSAFE 
16 INDICATED BY THE CONTENTS OF RHER{, RHERZ OR RHER3, 
66 DRIVE ERROR 

DRIVEsX $NeX © ORIVE & SERIAL NUMBER 

CYL, TRKSXXX,XX © CYL & TRK WHEN ERROR OCCURED 


RHCG1 RHCS2 RHDS1 RHERS RHER2 RHERD 
CONTENTS OF THE ABOVE REGISTERS 


THO RETRIES ARE MADE ON THE CURRENT DISK ADDRESS 
IF THE ORIVE ERROR REMAING THE FORMAT 16 TERMINATED, 
If NOT THE FORMAT CONTINUES, 


67 DRIVE UNSAFE ERROR 
ORIVESX 6NeX © DRIVE & SERIAL NUMBER 
CYL, TRKSXXX,XX © CYL & TRK WHEN UNSAFE OCCURED 


GI 
eee ee ee — — — eg 


RHCS1 RHC62 RHDS1 RHERL RNERZ RHERD SEQ vere 
CONTENTS OF THE ABOVE REGISTERS 


If A ORIVE UNSAFE DEVELOPS THE FORMAT 18 TERMINATED, 
THE TYPE OF UNSAFE 18 INDICATED BY THE CONTENTS 
OF RHER{, RHERZ OR RHERS, 


@8 UNCORRECTABLE MASSBUS PARITY ERROR 
FORMAT TERMINATED 
CYL, TRK@KAX,XX © CYL & TRK WHEN ERROR OCURRED 


THE PROGRAM HAS TRIED 3 TIMES TO READ OR WRITE 
A REGISTER AND A PARITY ERROR HAS OCCURED EACH TIME, 


69 FATAL MASSBUS PARITY ERROR 
CYL, TRKSXAX,XX © CYL & TRK WHEN ERROR OCCURED 


THE PROGRAM DETECTED A MASSBUS PARITY ERROR 

WHILE ISSUING A °DRIVE CLEAR’ TO RESET A PREVIOUSLY 
DETECTED MASSBUS PARITY ERROR, THE PROGRAM WILL 
HALT AFTER THE ERROR 16 REPORTED, 


$10 SOFTWARE TIMEOUT © SYSTEM HUNG 
DRIVEssX SleX © DRIVE & SERIAL NUMBER 
CYL, TRKSXXX,KX © CYL & TRK WHEN OPERATION TIMED OUT 


RHC6i RHCGZ2 RHDS1 RHER] RHERZ RHERD 
CONTENTS OF THE ABOVE REGISTERS 


IF A DISK OPERATION FAILS TO COMPLETE WITHIN 1 SECOND 
THE ABOVE MESSAGE 18 TYPED, THIS INDICATION ONLY 
OCCURES IF THE PDOP11 SYSTEM 16 EQUIPPED wITH EITHER 
A KWiieL OR KWigieP CLOCK, 

7,0 MISCELLANEOUS 


Seecreseeeese 
7,1 EXECUTION TINE 


TO FORMAT THE ENTIRE DISK TAKES APPROXIMATELY 9 
MINUTES, If TAKES ABOUT 1,2 SECONDS TO FORMAT ‘ 
ONE CYLINDER PLUS 7 MS FOR EACH CYLINDER Seek, 


7,2 HALTING THE PROGRAM 


THE FORMAT SHOULD NOT BE INTERRUPTED ONCE UNDERWAY 
UNLESS A REFORMAT 16 TO FOLLOW, 


7,3 DATA PATTERN 


THE WORST CASE PATTERN OF 165555 & 133333 10 MORE 
LIKELY TO CREATE DATA CHECK (DCK) ERRORS 
THAN OWES OR ZEROS, IF A SUCCESSFUL PASS WITH ZEROS 
1S ACHIEVED WHERE WORST CASE FAILS THEN THE 
RP94 DIAGNOSTICS SHOULD BE RUN TO VERIFY THE 
DRIVES RELIABILITY, 

8,0 PROGRAM DESCRIPTION 


Al | 
ee ———— — ——— — —n —m—G—a 


FORMAT OPERATION 


THE FORMAT PROGRAM FORMATS THE DISK PACK OW THE 
ASSIGNED ORIVE ONE TRACK AT A TIME, THE 

THE DATA FIELDS ARE WRITTEN WITH THE SELECTED 
PATTERN, KEY WORDS ARE WRITTEN WITH ZERO*S, 
EACH TRACK I6 VERIFIED WITH A WRITE CHECK 

ORDER IMMEDIATELY AFTER IT 18 WRITTEN, 


THE PORTION OF THE PACK TO BE FORMATTED 18 DETERMINED 

BY THE BEGINNING AND THE ENDING CYLINDER AND TRACK 
ADDRESSES; THESE LIMITS ARE INCLUSIVE, A SINGLE TRACK I58 
THE SMALLEST ELEMENT THAT MAY BE FORMATTED, 


FORMAT ERRORS 


WRITE CHECK ERRORS ARE REPORTED WHEN THEY ARE 
DETECTED, IF AN ERROR 26 DETECTED, THE SECTOR mUST 
BE REWRITTEN AND VERIFIED CORRECTLY TWO SUCCESSIVE 
TIMES TO BE CONSIDERED USEABLE, SECTORS WHICH CANNOT 
BE WRITTEN CORRECTLY TWICE AFTER AN ERROR WILL BE 
DECLARED {OT ACCEPTABLE BY THE PROGRAM, 


POSITIONER ERRORS 


AFTER THE LAST TRACK HAS BEEN FORMATTED AND 
VERIFIED AN ADDITIONAL CHECK 16 PERFORMED, THE 
HEADER OF TRACK SERO AND SECTOR ZERO OF EACH 
CYLINDER I8 READ AND COMPARED BY THE SOFTWARE, 
THIS CHECK 38 PERFORMED TO ISOLATE A POSSIBLE 
POSITIONER ERROR THAT MAY HAVE OCCURED DURING 
THE FORMAT OPERATION, TWO SUCH CASES OF POSITIONER 
MALFUNCTION ARES FAILURE OF THE POSITIONER TO 
ADVANCE TO THE NEXT CYLINDER, AND THE CASE 
WHERE THE POSITIONER ADVANCES PAST THE CYLINDER 
DESIRED, 
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MAINDEC C11 eDERPLoB "RPO FORMATTTER PROGRAM” DECDOC VER 


a COPYRIGHT (C) 1974,1975 
DIGITAL EQUIPMENT CORP, 
MAYNARD, MASS, 01754 


PROGRAM BY R, MOORE/C, HESS 
THIG PROGRAM WAS ASSEMBLED USING THE PDPeli MAINDEC sysmAC 
PACKAGE (MAINDECe11eDZQACeA2), 


— LOSOORDOOOTOOO CEES COO OOREROD EOE HOOT OOS 
OPERATIONAL SWITCH SETTINGS 
0800 060600600000000000000000000 0000000000000. COSC OHCOORCDEOOORE8 


OuITCH USE 
seeeeoe SSCSCSSSeseoesescoeseeeo 
a8 HALT OW ERROR 
14 LOOP OW THE CURRENT TRACK 
i} INHIBIT ERROR TYPEOUTS 
o LOOP THE PROGRAM 


—imm ee 
TRAP Ca R 
0800 00000000000000000000000009000 0S OOOO HOOOTODOODOROEOOOODODOOOD 


36 ALL UPUSED LOCATIONS FROM 4 © 776 CONTAIN A *,02,HALT® 
SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
LOCATION © CONTAINS @ TO CATCH IMPROPERLY LOADED VECTORS 


32 200 © WORMAL START 

34 20¢ © RESTART 
—XXXXXXXX 
BASIC DEFINITIONS 

GCOHGSIGCOGHE STE SHO SCHTOGETOHEGSERADHSHOHEEOH OST OOP OOUCSFSOOGSOHEDESODD 
40 INITIAL ADDRESS OF THE STACK POINTER eee 1100 see 

$1 GENERAL PURPOSE REGISTER DEFINITIONS 

63 PRIORITY LEVEL DEFINITIONS 

73 "SWITCH REGISTER’ BWITCH DEFINITIONS 


104 DATA BIT DEFINITIONS (BITes TO BIT15) 
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129 BASIC "Cpu" TRAP VECTOR ADDRESSES 


OOSOCOOHOOSEOEOOS OOOO EOOEODOOEOCEHHOSOOOODOLOSESODEHO 
RPO4 ADDRESSES 
—XöRxxxxxXXXXX 


00000000000 00000605 00000000 00000000000000000000000000000008050008 
MAIN PROGRAM 
— OCOD OOHOOOSO OOH EDEOOLOOD OS OCELOOOODO000 000008 


SEOCOOHOOOSHOSSOHEHOOHHOHHHHEHHGHSHEHOHCHOHHEHOHHHSHOHHECSOOOCCRS 
SUPPORT SUBROUTINES 
0000 0000000600060000000000000000080000000000000000000000000 000008 


1628 RH11/RPOS DAIVER (REV, 0,9 
—öxxX 


1636 
1637 


1847 


1875 


16946 


COPYRIGHT (C) 1974 
DIGITAL EQUIPMENT CORP, 
MAYHARD, MA 01754 
AUTHOR) JIM LACEY 


STORAGE FOR RHDS3, RHERI, RHER2, AND RHER} OF AW ERROR *2" OR *5° 


RPERRS 8 RHDSI 
RPERRGC2 © RHERI 
RPERRSC4 & RHERZ 
RPERRBC6 © RHERD 


TABLE OF DRIVE ACTIVE INDICATORS (DRVACTS® BYTES) 

DRVACTCO IMPLIES DRIVE 16 IDLE 

DRVACTPO IMPLIES DRIVE 16 ACTIVE WITH A COMMAND 

DRVACTCO IMPLIES DRIVE 16 ACTIVE WITH AW ERROR RECOVERY OPERATION 


TABLE OF DRIVE STATUS INDICATORS (DRVSTASS BYTES) 
DRVSTASCO IMPLIES DRIVE 16 OFFLINE 

DRVSTADO IMPLIES DRIVE 16 ONLINE 

ORVSTACO IMPLIES DAIVE 16 UNSAFE OR NONEXL STENT 


TABLE OF DRIVE TYPES (ORVTYPss WORDS) 
ORVTYP WILL CONTAIN THE DRIVE TYPE OF ALL ONLINE, OFFLINE, AND 
UNBAPE DRIVES, IF A DRIVE 18 MONEXISTENT ORVTYP WILL BE ZERO, 


TRANGTER WAIT FLAG (TRNSWT81 WORD) 
THIS 36 A OWE WORD GUEVE, IT WILL CONTAIN THE ADDRESS OF 
*DPB® OF THE 1/0 OPERATION, 


SEARCH WAIT KEYS (SRCHWTes WORD) 

THIS 16 A ONE WORD pr Bg es THAT WILL CONTAIN A KEY FOR EACH OF 

—38 DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 170 
QUEST THAT 16 AT THE TOP OF THEIR REQUEST QUEUE, 

cach DRIVE 16 ASSIGNED ONE BIT, STARTING AT SITe@ FOR DRIVE Be 
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1922 


1914 


1948 


1956 


1974 


1987 


1992 


1997 
1999 
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RP@4@ DRIVER ACTIVE FLAG (ACTORV®) BYTE) 
ACTORVs® IMPLIES DORIVER IS INACTIVE 
ACTORV>@ IMPLIES DRIVER IS ACTIVE 


SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR#1 #YTE) 
ACTSTReO IMPLIES SOFTWARE TIMER ROUTINE IS INACTIVE 
ACTSTR>O IMPLIES SOFTWARE TIMER ROUTINE IS ACTIVE 


UNLOAD FLAG (ULDFLGS@ BYTES) 

ULDFLGe@ IMPLIES NO UNLOAD COMMAND 

ULDFLG>@ IMPLIES UNLOAD COMMAND IN PROGRESS 
ULDFLG<@ IMPLIES UNLOAD COMMAND IN #AIT QUEVE 


LOOK AHEAD COUNT (LACNTs@ BYTES) 
LACNT wILL INDICATE THE NUMBER OF LOOK AHEADS PERFURMED 


SAVE REGISTERS FLAG (SAVEFG #1 #ORD) 

SAVEFG <@ IMPLIES SAVE THE RH11/RPO4 REGISTERS “HEN THE 
OPERATION IS COMPLETED AS PER (DPBe14), 

SAVEFGa® IMPLIES SAVE THE RH11/RPO4 REGISTERS, AS PER 
(DPBe16), AFTER AN ERROR, 


SEEK FLAG (SEEKFGs1 WORD) 

SEEKFGe@ IMPLIES WHEN THE DISK ADDRESS ISN°T IN THE WINDOW 
FOR A DATA TRANSFER START A SEARCH COMMAND 

SEEKFG<ce IMPLIES DATA TRANSFER WILL 0O IMPLIED SEEKS, 
DISREGARD THE WINDOW 


TIMEOUT TABLE (TIMERSS WORDS) 
THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


DATA TRANSFER UNDERWAY INDICATOR (DTUWe1 WORD) 
DTUW<@ IMPLIES NO DATA TRANSFER UNDERWAY 
DTUNseN (WHERE Nee TO 7) IMPLIES DATA TRANSFER UNDERSAY ON DRIVE WN 


ATTENTION BITS TABLE (ATABIT#® BYTES) 
THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
ATTENTION BIT 


RPO4 TO RHi1 "MASS CONTROL BUS PARITY ERRORS® (MCPE) ALLOWED BEFORE 


CALLING IT FATAL (MCPEMXs1 WORD) 


STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPO4), 
RPVEC (THE VECTOR ADDRESS (254)), AND RPVECe2 (THE BR LEVEL (5)), 


MAXIMUM NUMBER OF LOOK AHEADS ALLOWED 18 4 (MXLACT#1 WORD) 
MAXIMUM DELTA DELAY IS @ SECTORS (MXDLTA#1 WORD) 


LIeMARCTS 17553 
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MAINDECS11eDERPLeB *RPO4 FORMATTTER PROGRAM® DECDOC VER 00,04 LJeMARCTS 17353 PAGE 06 
2001 MINIMUM DELTA DELAY 18 2 SECTORS (MNDLTA®i WORD) 
2003 MAXIMUM SEARCH FOR 1/0 WINDOW 18 5S SECTORS (MXHNDwel WORD) 
2006 DEFINITIONS OF THE RHI1/RPO4 ADDRESS INDEXES 


2029 RH11/RPO4 DRIVER INIT, CODE 
THI6 ROUTINE WILL DETERMINE WHICH RPO4 DRIVES ARE 
AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
TO THE PROPER STATE FOR EACH DRIVE, 
WOTES THIS ROUTINE CALLS DRVINT 


CALL 
JSR PC, RPINIT 
RETURN 


2070 DRIVE INIT, ROUTINE 
THIS ROUTINE DETERMINES IF A ORIVE EXIST AND IF IT 18 
AN RPOG, IF IT 18, A *“READeIN PRESET*® IS ISSUED AND FuT22 
18 SET TO A "3", THEN MOL, DPR, DRY, AND VV ARE CHECKED TO 
INGURE THEY ARE ALL OW A "1", AND DEPENDING ON THEIR STATE, 
DRVSTA I8 SET TO THE PROPER CONDITION, 


CALL 

MoV CORVNUM, RI sORIVE NUMBER TO Ri 
MoV RPADR,R4 pUNIBUS ADDRESS OF RH11/RPO4 (RHCSi) 
J6R RO,ORVINT sCALLED BY A JSR 
RETURNS pERROR OCCURRED (PARITY) 
RETURN2 pNORMAL RETURN 

2132 rege PREePROCESSORCHANDLES SUBSYSTEM REQUEST 
JSR RO, CORPS pCALL THE RPO4 ORIVER 
PNTADR pADORESS OF POINTER OF DRIVES PARAMETER BLOCK 
RETURN) pRETURN HERE IF QUEVE 18 FULL 
RETURN? pRETURN HERE IF REQUEST 16 IN QUEVE OR THERE 


2178 > cena — FOR A PARTICULAR DRIVE 
ALL 


mov @ODRVYNUM, Ri pORIVE NUMBER TO Rj 
J&A pC, OPT sSETUP A COMMAND 
2215 COMMAND INITIATOR 
CALL 

MoV ODRVNUM, RY sDRIVE NUMBER 

nov oDPB,R2 pADORESS OF DPB 
JSR PCeCIP? sCIPs Cl9,CI3, OR CIE 

pWHERESs 


sCIiSDATA TRANSFER 
pCI2ZeSEARCH REQUESTED BY DATA XFER 
sCl4eNOT DATA TRANSFER 





ax 
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2400 


2443 
2487 
2404 
2640 


2674 


2739 


27862 


2054 


*RPO4 FORMATTTER PROGRAM* 


LOOK AHEAD ROUTINE 


CALL 


MOV 
MOV 
JER 
RETURNS 
RETURN2 
RETURNS 


@DRVNUM, Ri 
eDP8,R2 
RO, LA 


DECDOC VER 00,64 L3eMARGTS 17853 


sORIVE NUMBER 

pPOINT TO DPBS 

160 CHECK THE wINDOw 
pERROR RETURN 

pSTART A BEARCH 

sSTART A DATA TRANSFER 


pELASPED TIME IW MILLISECONDS ON THE STACK 
sCALL RPO4 TIME ROUTINE 


sORIVE NUMBER 
pCALLeeDRVACT MUST BE NONZERO 


960 READ A REGISTER 

pREG, INDEX FROM BASE 

pERROR ADDRESSeePROCESS ERROR STARTING 
gAT THIS ADDRESS 

sCONTENTS OF REG, 18 ON THE STACK 


pDATA TO BE LOADED OWN THE STACK 

sCALL THE ROUTINE TO LOAD( WRITE) THE REG, 
pINDEX OF THE REGISTER TO BE LOADED 
pADDRESS TO RETURN TO ON AN ERROR 

sERROR FREE RETURN 


TO SAVE THE RH11/RPO4 REGISTERS AS PER OPB014 


pOP8 POINTER TO R2 
pSAVE THE DRIVES REG*°S 


TO SET THE INTERRUPT WITHOUT GETTING A *TRE® 


sORIVE NUMBER TO Ai 


INTERRUPT SERVICE ROUTINE 
TRANSFER DOWE ROUTINE 
SPECIAL CONDITION ROUTINE 
RPO4 TIMER ROUTINE 
CALL 
MOV @TINE, (SP) 
JSR RO, RPTHR 
SOFTWARE TIMEOUT ROUTINE 
CALLS 86 8TO 
nov CORVNUM, RI 
JER RO, STO 
RETURN 
ROUTINE TO READ A RHII/RPO4 REGISTER 
CALL 
JER RO,RD,RP 
INDEX 
ERRAOR 
RETURN 
ey TO WRITE A RHI1/RPO4 REGISTE® 
MOV DATA, ©( 8P) 
J8R RO, URT RP 
INDEX 
ERRADR 
RETURN 
ROUTINE 
CALL 
mov ODPBNUN,R2 
JER eC, 6VRHi4 
ROUTINE 
CALL 
MoV ODRVNUM, RY 
JSR oC, SET, IE 


s8ET *TE* 
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2971 


2987 


*RPO4 FORMATTTER PROGRAM* DECDOC VER 60,04 
QUEVE COUNT 
ROUTINE TO CLEAR ALL OF THE REQUEST QUEVES 
CALL 
JSR PC, CLROUE 
ty THE QUEVE SPECIFIED BY Ri 
ALL 
MOV DRVNUM, RY pORIVE NUMBER TO Ri 
JSR PC, EMPTYO 
res TO PUT A REQUEST IN QUEVE 
CA 
MoV ODRVNUM, RY sORIVE NUMBER 
MOV oDPB,R2 pADDRESS OF PARAMETER BLOCK 
JSR RO, DRVQUE 160 PUT REQUEST IN QUEVE 
RETURNS PRETURW HERE IF QUEVE 18 FULL 
RETURN2 SRETURW HERE If REQUEST 18 IN QUEVE 
Or gg TO GET THE "DPB* ADDRESS OF NEXT REQUEST IN QUEVE 
ALL 
MoV ODRVNUM,RI sDRIVE NUMBER TO Ri 
JSR PC, GETREG 960 GET THE REQUEST 
RETURN sR2e°DPB" ADDRESS OF THE REQUEST 
sR2e0 IF WO REQUEST IN QUEUE 
rena TO *POP* THE REQUEST FROM QUEVE 
ALL 
MoV OORVNUM, RI sORIVE NUMBER TO Ri 
J6R PC, POPQUE sCALL TO REMOVE REQUEST 
RETURN SRAZSADDRESS OF DPB REMOVED 
ROUTINES TO SAVE ROeRS AND RicRS 
CALLE GAVROS 
JSR RO, SAVROS 
RETURN sROPRS 18 ON THE STACK 
CALLS SAVRiS 
JSR RO, SAVRIS 
RETURN pRieRS I8 ON THE STACK 


UPON RETURN FROM GAVROS AND SAVRIS THE STACK WILL LOOK LIKES 


L3eMARCTS 17453 
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3048 ROUTINES TO RESTORE RO©RS AND RiORS 


CALLS 


CALLI 


GETROS 
JSR RO, GETROS 
RETURN pRORS HAVE BEEN RESTORED 


GETRIS 
JSR RO, GETRIS 
RETURN pRIeRS MAVE BEEN RESTORED 
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MAINDEC*L1CDERPL©B "RPO FORMATTTER PROGRAM® WACY11 27(657) 130eMAR©7S 17951 PAGE 1 ( 
DERPLB,Pii 
1 eTITLE MAINDECe{ISDERPLeBR "RPO4 FOR“ATTTER PROGRAM" ( 
2 p@COPYRIGHT (C) 1974,1975 
5 p@DIGITAL EQUIPMENT CORP, 
a pOMAYNARD, MASS, 01754 ( 
5 10 
6 p@PROGRAM BY R, MOORE/C, HESS 
7 1% 
8 J@THIS PROGRAM WAS ASSEMBLED USING THE POPei1 MAINDEC SYSMAC ' 
9 P@PACKAGE (MAINDEC©}1eDZQACeA2), 
12 0 
i 
12 eSBTTL OPERATIONAL SWITCH SETTINGS 
13 re ( 
14 3 SWITCH USE 
is ye Sseena CeEQBSRVeZcS2caseenavoe 
16 ge 18 HALT OW ERROR { 
17 rT 14 LOOP ON THE CURRENT TRACK 
is 10 12 INHIBIT ERROR TYPEOUTS 
19 @ ⸗ LOOP THE PROGRAM 
20 
21 
22 ( 
23 ,S3TTL TRAP CATCHER 
24 
25 ecccee 30 
26 PALL UNUSED LOCATIONS FROM @ © 776 CONTAIN A *,02,HALT® 
27 pOSEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
28 p@LOCATION @ CONTAINS @ TO CATCH IMPROPERLY LOADED VECTORS 
29 
30 POSTARTING ADDRESSES 
31 000200 98200 
32 9©200 © WORMAL START 
33 09200 000137 991104 up BEGIN 
34 90204 © RESTART | 
@ 35 900206 000137 001186 UMP RESTRT 
36 
37 
© a eSBTTL BASIC DEFINITIONS 
‘ 40 P@INITIAL ADDRESS OF THE STACK POIATER eve 1100 eve ( 
@ 41 001100 STACKe 1100 
42 ,COULV EMT, ERROR p9BASIC DEFINITION OF ERROR CALL 
43 »£QULY 0T, SCOPE ppBASIC DEFINITION OF SCOPE CALL ! 
@ “4 477776 Psu 177776 SSPROCESSOR STATUS #ORD 
45 eEQUIV PS,P6EW 
46 477776 STKLNTS 177774 p9STACK LINIT REGISTER ! 
@ 47 177772 PIRGs 477772 pPPROGRAM INTERRUPT REQUEST REGISTER 
48 177570 swRe =: 77878 ppSWITCH REGISTER 
° ‘9 177570 DISPLAYesur 
5 
51 S@GENERAL PURPOSE REGISTER DEFINITIONS 
52 seocee Res ve p9GENERAL REGISTER 
€ 53 0ee0e1 Rie a 99GENERAL REGISTER 
000002 R28 a2 p9GENERAL REGISTER : 
e 
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55 
56 
57 
$8 
$9 
60 
61 


BASIC DEFINITIONS 


000ee) 
000004 
000005 
048006 
000007 


100000 
040000 
020000 
016000 
004000 
002000 
601000 
000400 
000260 
000160 
000640 
600028 
000016 
o000e4 
0000062 
000001 


*RPO4 FORMATTTER PROGRAM" 


MACY11 27(657) 


R3e %3 
R4s $4 
R58 es 
Rés 86 
R78 17 


eCQUIV R6,SP 
eZQUIV RI,PC 
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psGENERAL REGISTER 
pSGENEPRAL REGISTER 
peGENERAL REGISTER 
sSGENERAL REGISTER 
pSGENERAL REGISTER 
peSTACK POINTER 

pePROGRAM COUNTER 


p@PRIORITY LEVEL DEF INIT 
® 


Paoe 
PRIS 
PRIB 
PRIS 
PR4e 
PRS@ 
RPos 
PRI 


40 

100 
140 
260 
24e 
see 
340 


sePRIORITY 
PePRIORITY 
pepPRIORITY 
ppPRIORITY 
pPPRIORITY 
pePRIORITY 
pe PRIORITY 
pp PRIORITY 


LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 


p@"SWITCH REGISTER" SWITCH DEFINITIONS 


6015s 
Buide 
Side 
Bu1 20 
SWiis 
Suleea 
86098 
Bα 
Sua7s 
Gweoe 
SwoSe 
Brads 
Gudie 
8v62e8 
Seis 
Sven 
eZQULV 
Xoutv 
Xouuv 
XKouav 
Xouuv 
eZQurV 
Xouvav 
eZQUlV 
,tQulV 
eCQULV 


p@DATA 
BITiSs 
BITiéde 
BITi3e 
BITi2e 
SITiis 
BITiss 
BITe9e 


190000 
40000 
200008 
16600 
4000 


8w09, 309 
6wes, swe 
6407,609 
8WO6, BW6 
$005,365 
BWO4, 504 
6v03,8"3 
602,602 
SO1, 804 
6400,8n0 


BIT DEFINITIONS (BITe@ TO B1T15) 


~OoVewN—K 
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109 
110 
iii 
412 
113 
114 
115 
116 
417 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 


BASIC DEFINITIONS 


000400 
000200 
000100 
eceadce 
000026 
000010 
000004 
800002 
000001 


177560 
177862 
177564 
177566 
172840 
172942 
177846 


158 001100 176700 


000254 
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BITees 40¢ 

BITe?s 208 

BITe6s i100 

BITese 40 

BITe4és 20 

BiTeje 10 

BITeIs 4 

BiTeéie 2 

BITees i 

eCQUIV BITO9,BIT9 
eZQUIV BITee, BITS 
eCQULIVY BITe7,BIT7 
eCQUIV BITO6, BITE 
EQUIV BITEOS,8ITS 
eZQUIV BITO4,B1T4 
pfQUIVY BITC, B1T3 
eZQUIV 81702, 01172 
Xouviv 81701, ox11 
eLQUIV BITSOO,BITe 


i3eMARCTS 17851 PAGE 3 


s@BASIC "CPU" TRAP VECTOR ADDRESSES 


ERRVECe 4 
RESVECe 10 
TOITVECsi 4 
TRIVECS 14 
BPTVECe 14 
IOTVECe 20 
PURVECe 24 
EMTVECe 30 
TRAPVECe34 
TKVECe 60 
TPVECe 64 
PIROVECS240 


pREGISTER ADDRESSES 
7K8e177560 
TKB9377562 
7760177564 
7780177566 
OLAC6R8172540 
OLKC6B01725462 
6LK60177546 


271100 
eSBTTL RPO4 ADDRESSES 


GRPADRS gWORD 176700 
SRPVECs ,WORD 254 


eS8TTL MAIN PROGRAM 


geTIME OUT AND OTHER ERRORS 
ppRESERVED ANDO ILLEGAL INSTRUCTIONS 
ge°T* BIT 

peTRACE TRAP 

ppOREAKPOINT TRAP (BPT) 
peLMPUT/OUTPUT TRAP (IOT) eeSCOPECe 
sePOWER FAIL 

peEMULATOR TRAP (EMT) SOERRORGCS 
pe*TRAP® TRAP 

geTTY KEYBOARD VECTOR 

geTTY PRINTER VECTOR 

PPPROGRAM INTERRUPT REQUEST VECTOR 


ADRS OF KwiteP STATUS REG 


pADRS OF KwWijeP COUNTER BUFFER 


sADRS OF KuiieL STATUS REG 


pRHIL/RPOS UNIBUS ADDRESS 
sRH1ii INTERRUPT VECTOR 


—— 
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& DERPL®,Pii MAIN PROGRAM 
163 001104 0000s BEGINS RESET SCLEAR #ORLD | 
ae 164 ©01106 012706 01100 MOV OSTACK, SP sSET UP STACK 
165 001112 0612737 083116 669030 MOV CEMTHND, 0830 sSET UP EMT ADRS 
166 001120 612737 900340 900032 MOV 0340,0032 sSET PS TO 7 { 
€ 167 @@1126 013737 981100 013070 MOV SRPADR, RPADR pMOVE RHLI1/RPO@ ADORESSES TO VECTOR 
168 ©01134 013737 @01102 013072 MOV ORPVEC, RPVEC pRH14 VECTOR ADDRESS 
169 001142 012737 900240 001186 MOV 6240, RESTRT pALLOW RESTARTS AFTER INITIAL START { 
© 172 @01158@ 904597 908166 JSR RS, TYPOUT 360 TYPE MESSAGE 
171 @01184 007466 MTITLE pADRS OF TITLE MESSAGE 
172 003186 000752 RESTRTs BR BEGIN SCHANGE TO "NOP? AFTER INITIAL START 4 
© 173 @©0116@ 012706 01100 MOV @STACK, SP s8ET UP STACK 
74 001164 99000 RESET SCLEAR WORLD 
i 
G 176 9GO FIND OUT WHAT DRIVE 
i 
178 @01166 904537 905166 mes JSR RS, TYPOUT 160 TYPE MESSAGE 1 
€ 179 @01172 007946 MUNIT sADRS OF MESSAGE 
100 004174 006737 005242 JER PC, TT 1G0 WAIT FOR ORIVE 6 
191 ©01200 622790 #00104 CMP $104,R0@ $18 IT THE DEFAULT CHAR? { 
@ 182 001204 es1006 BNE 16 SBRAWCH IF NOT THE DEFAULT CHAR 
183 @01206 909037 012540 CLR USEL }SELECT ORIVE ZERO 
104 001212 004537 005166 JSR RS, TYPOUT 3GO TYPE DEFAULT ORIVE NO, | 
© 105 001216 0078961 MDRVO pADRS OF MEG 
196 001220 900413 BR GSEL 1GO0 SEE IF DRIVE ZERO 18 THERE 
i 
€ 188 001222 004737 905314 168 JSR PC, NUMTST 318 IT A DIGIT? 
109 @01226 900787 BR Mo PRETURN HERE IF DRIVE @ NOT A DIGIT 
190 001230 022790 900007 Cup 67,R0 $16 IT LESS THAN 7? ( 
3 191 001234 103003 Bcc 28 }YES © GO SELECT DRIVE 
192 601236 904737 e05406 JER PC, QUES sTYPE 2? 
193 001242 000783 BR me PRETYPE LINE 1 
@ 194 001244 010037 012840 288 MOV RO, USEL PSAVE IN USEL 
195 
e 196 pTHIS CODE CHECKS IF REQUIRED DRIVE 18 AVAILABLE | 
1 
198 001250 0046737 013106 GSELs JER PC, RPINIT $60 SEE WHAT ORIVES ARE AVAILABLE 
199 @0125¢ 012737 4177777 013032 MOV $177777,SEEKFG SET TO 4 IF NO OPTIMJZATION IW DRIVER | 
@ 208 0801262 913700 012540 MOV USEL, RO 1GET DRIVE NO, 
201 001266 105768 012782 TST) 4 «=-_-d DRVSTACRe) pLOOK AT DRIVE STATUS 
⸗ 202 601272 903035 BGT mi PBRANCH IF ONLINE { 
es 203 001274 962404 BLT rT} pBRANCH IF UNSAFE OR NOWEXISTENT 
204 001276 984537 905166 JSR RS, TYPOUT STYPE °ORIVE OFFLINE? 
. 205 001302 9078977 MOFFLN pADRS OF MESSAGE ( 
S 206 001304 900730 BR No 960 GET ORIVE @ AGAIN 
® 207 001306 006300 188 ASL RO pR@ INTO WORD INDEX 
208 901310 905760 012762 737 davrrocko) pA DRIVE PRESENT? ( 
S 209 001314 901004 BNE 28 s8R IF 80 
21@ 0601316 904537 0095166 JSR RS, TYPOUT sTYPE *DRIVE NOT PRESENT? 
211 001322 007621 MORNP pADRS OF MEG ( 
& 212 001324 900720 BR no 160 GET ORIVE NO, AGAIN 
213 001326 022768 ©20028 012762 265 cup 020020,0RVTYP(RO) pSINGLE PORT? 
214 001334 e91430 BtQ 8 PBR IF UNSAFE SINGLE pORT j 
Se 215 001336 022768 024028 012762 Cup $24020, ORVTYP( RE) SOUAL PORT? 
| 216 001344 901404 BEO ꝛ Jon IF UNSAFE DUAL PORT 
& ( 
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217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
248 
241 
242 
243 
244 


001366 
004372 
001376 
001400 
001404 
001416 
001412 
001416 
001420 
001424 
001426 
001432 
0014534 
001440 
001442 
001444 
001450 
001452 
001454 
001460 
001462 


001476 
001474 
001476 
001502 
001506 
001510 
601514 
001516 
001522 
001524 
001530 
001532 
001536 
001540 
001546 
001554 
001562 
001576 
001576 
001600 


MAIN PROGRAM 


004537 
007646 
000704 
004537 
007673 
0007008 


008037 
004537 
0077258 
004737 
022700 
001415 
022700 
001406 
022700 
001413 
604797 
000758 


o10046 
012737 


004537 
010035 
004737 
022700 
001441 
0227060 
001433 
832706 
001403 
004737 
000757 
004637 
010106 
012737 
012737 
012737 
012737 
412737 
068420 
004537 


005242 
000104 


600103 
@O51 06 
005406 
065166 


665166 
477777 


000116 
000104 
005486 
005166 
013130 
164680 
479797979 
006025 
oees20 


012602 
012604 
012610 
012612 
012713 
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RS» TYPOUT STYPE °NOT AN RPOO? 
pADRS OF 48G 
cr) 160 GET DRIVE NO, AGAIN 
RS, TYPOUT STYPE RPGS UNSAFE? 
sADRS OF MSG 
he 9GO GET ORIVE WO, AGALS 


pSEE WHICH MODE THE PROGRAM 18 TO BE RUN IW, 
pMODES AREG °FORMAT & VERIFY® OR “CHECK FORMAT? 


CLR 
JER 
MMODE 
JSR 
CMP 
BEG 


MODE 
RS, TYPOUT 


PC, QUES 
mi 
RS, TYPOUT 


MLA 
RS, TYPOUT 


Ge 
RS, TYPOUT 


sSET MODE TO "CHECK FORMAT? 
STYPE °PROGRAM MODE? 
pADOR OF "8G 

pWAIT FOR ENTRY 

9°D*® (DEFAULT) ENTERED ? 
g0R IF OEFAULT 

CHECK FORMAT MODE 7? 

pOR If CHECK ONLY 
SPORMAT & VERIFY ? 

sBR If YES 

pTYPE °??° 

pTRY AGAIW 

TYPE REST OF "CHECK? 
pADDR OF 4EG 

GET STARTING ADDRESS 
TYPE DEFAULT MESSAGE 
pADOR OF 4SG 

s8ET UP MODE 

sTYPE REST OF *FORMAT? 
sADDR OF MEG 

psSET MODE TO "FORMAT & VERIFY? 


FIND OUT IF FORMAT 16 TO BE IN 28 OR 22 SECTOR MODE 





J6R RS, TYPOUT STYPE FORMAT MODE REQUEST 
MBILE pADDRESS OF MESSAGE 

JSR PC, TTI sWAIT FOR INPUT 

cup e°¥, Re 16 ENTRY A °Y* 7 

BEO a6 sOR IF IT 38 

cmp o°h, Re 918 ENTRY A °N? P 

BEO 28 sOR IF IT 18 

CMP 9°, RO $16 EWTRY A °O* 7? 

BEO is sOR IF IT 18 

J6R PC, QUES TYPE °?7° © INVALIO LHPUT 

OR MIA sTRY AGAIN 

J6R RS, TYPOUT STYPEOUT MODE SELECTED 

MBEC22 sADDRESS OF MESSAGE 

MOV 6€26H,022,>2.0C sTRACK SIZE I% 22 SECTOR MODE 
MoV 996260 ,022,>,4WC 92°S COMPLEMENT WORD COUNT 
uov 6°1,6EC20 $22 SECTOR INOICATOR 

MOV @21,.MAXBSEC sMAX SECTOR ADDRESS IN 22 SECTOR MODE 
wove 020, FMTOPBe; sLOAD FNT22 BIT 


OR a8 sLOAD FORMAT BIT 
RS, TYPOUT sTYPE OUT 2@ SECTOR MODE SELECTED 


va 
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271 
272 
273 
274 
275 
276 
277 
278 
279 
260 
261 
282 
263 
264 
285 
286 
267 
268 
269 
298 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
341 
312 
313 
314 
315 
316 
317 
318 


001604 
001606 
001614 
001622 
001626 
001634 
001640 
001646 
001654 
001660 
001662 
001664 
001670 
081672 
001674 


001676 
001702 
001704 
0017132 
001716 
001720 
001724 
001730 
004732 
001736 


001740 
0017464 
001750 
001752 
001756 
001760 
001762 
001764 
001770 
001774 
001776 
002002 
002004 
002006 
002012 
002014 
002028 
002026 
002030 
002032 
002036 


010165 
012737 
012737 
005037 
012737 
109037 
443737 
412737 
004037 
012712 
008766 
008737 
001775 
100762 
800400 


004537 
010244 
012737 
0046737 
000767 
005037 
004537 
010277 
004737 
000772 


01212¢e 
165660 
012616 
000023 
012713 
012540 
000143 
013476 


012730 


80080) 
@05446 


012942 
865166 


005046 


012712 
012714 
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MSEC20 
MOV 
MOV 
CLR 


6<260,420 oe ac 
62€260,020,>,"WC 


8£C20 
619,,MAXSEC 
TMTOPBot 
USEL,FATDPB 
0143,F74TOPB02 
RO, REPOS 


34 
FMTOPBC16 
43 
36 
m2 





L3eMAR@7TS 17551 PAGE 6 


SADDRESS OF “ESSAGE 
STRACK SIZE 1% 26 SECTOR MODE 
92°S COMPLEMENT WORD COUNT 
120 SECTOR INDICATOR 
SMAX SECTOR ADDRESS I” 28 SECTOR MODE 
sCLEAP THE FMT22 BIT 
SLOAD DRIVE NUMBER 
9°SET FORMAT? COMMAND 
160 TO THE DRIVER TO EXECUTE THE COMMAND 
s0P8 ADDRESS 
sQUEVE FULL RETURM © RETRY THE COMMAND 
SCHECK STATUS WORD 
pOR IF NOT FINISHED 
s8R IF ERROR IW SET FORMAT 


160 GET PARAMETERS © STARTING CYL & TRK 


pAND EWOING CYL & TRK 


RS, TYPOUT 


¢1,807 Su 
PCeGETDAT 
m2 

sor aw 

RS, TYPOUT 


PC,eGETDAT 
LP) 


160 TYPE MESSAGE "STARTING CYL, TRAS* 
pADRS OF MESSAGE 

pSET UP SOFSe TO INDICATE STARTING LnPUT 
160 GET STARTING CYL & TRK 

SRETURNW HERE IF ERROR OR RUBOUT 

pSET UP SOFSe TO INDICATE ENDING input 
160 TYPE MESSAGE “ENDING CYL, TRKS* 

pADRS OF MESSAGE 

960 GET ENDING CYL & TREK 

SRETURW HERE IF ERROR OR RUBOUT 


sTHIS CODE CHECKS THE ORDER AND MAGNITUDE OF THE CYL & TRA ADRS 
INPUTTED BY THE TTY, ALSO ESTABLISHES THE TOTAL TRK COUNT 


ECYL, RO 
SCYL,RO 


is 
RS, TYPOUT 


m2 
3e 

ETRK, Re 
OTRK, RO 


a6 
RS, TYPOUT 


m2 
RO, TTRKS 
m4 


TIRKS 
023, TTRKS 
ko 


OB 
STRK,RO 
Re 


sS8ET RO WITH ECYL 
pSEE IF END CYL 18 SMALLER THAW START CYL 
sORANCH IF KOT 

STYPE IMPROPER DSK ADRS 
pADRG OF MESSAGE 


pRETYPE REQUEST © INPUT CYL NOT 3M PROPER FORK 


pORANCH IF SCYL NOT EQUAL TO ECYL 
pSET UP Re WITH ETRK 

GCC IF END TRK 16 SMALLER THAN START TRK 
SBRANCH IF KOT 

STYPE LMPROPER DSK ADRS 
pADRS OF MESSAGE 


pRETYPE REQUEST © INPUT TRK HOT Im PROPER FORM 


sGAVE 6 OF TRACKS 

960 GET DATA PATTERN 

sCLEAR TOTAL TRACK LOC 

sADD CYLINDER WORTH OF TRACKS 
sMAINTAIN CONTROL 

SBRAWCH IF CYL DIFF NOT @ 
sPUT STRK IN RO 

pMAKE TWO°S COMP 
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325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 


002044 


002052 
002056 
002060 
002064 
002070 
062072 
002076 
002100 
802104 
002106 
002112 
002114 
002128 
002122 
002126 
002130 
002134 
002140 


002142 
002146 
002158 
002154 
002156 
002160 
002164 
002166 


002172 
002176 
002202 
002206 
002210 
002214 
002220 
002226 
002230 
002236 


002048 660037 612556 
063737 612552 0612556 


008737 
801404 
0046537 
810646 
8084603 
004537 
010704 
004737 


6830)7 
005037 
006737 
001416 
005137 
009137 
022737 
001406 
012737 
612737 


013763 
012708 
013701 


012544 
005166 


612566 
012870 
012564 


12366 
012870 
C0686) 


012566 
012970 
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a400 RO, TTRKS 
aoD ETRK, TIRKS 


160 GET DATA PATTERN FOR FORMAT 


J6R RS, TYPOUT 
MSELP 

JSR pc, TTI 
Cup 6104,Re 
BNE is 

JSR RS, TYPOUT 
MPATD 

MoV 2,R0 

BA 26 

JGR PC, NUMTST 
OR M4 

cmp RO, 03 

BCs 28 

JGR PC, QUES 
BR M4 

MOV RO, PBEL 


JSR RS, TYPOUT 


1600 TYPE 
pADRS OF 
960 GET 
916 If Tf 
pBRANCH 
sTYPE DE 
sADRS OF 
s SELECT 
1600 SAVE 
sSEe IF 
sBRANCH 
918 @ LA 
pBRANCH 
sTYPE PT? 
pRETYPE 
sGAVE PA 
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TICAL TRK 
END TRACKS 


*6ELECT PATTERN? 
MESSAGE 
REPLY 
HE DEFAULT CHAR? 
Ir not 
FAULT PATTERN 
“8G 
PATTERN OF WORST CASE 
PATTERN 
A WUMBER 
If wot 
RGER THAN 2 
IF wot 


LINE 
TTERW SELECTED 


sTYPE °SELECTED® 


pAORS OF 


MESGAGE 


9G0 TYPE °STARTING FORMAT OW DAIVE © x 


T6T MODE 

BEO ie 

JSR RS, TYPOUT 
2m 

JS RS, TYPOUT 


JSR PC, UASH 


pTHIG CODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN OW EACH SECTOR IMAGE 


CUR PATA 

CLR PATS 

767 PSEL 

BEQ sTur 

com PATA 

Com PATS 

Cup 61,PSEL 

BEO etur 

MOV 6165555, PATA 
MOV 0133333,PATS 


9 °FORMAT 
sBR IF ° 


* OR °CHECK® MODE ? 
CHECK’ MODE 


sTYPE “STARTING FORMAT OW DRIVE 6° 
sADRS OF MESSAGE 


TYPE °STARTING CHECK OW DRIVE 6° 


pAODR OF 
GO PRIN 


MSG 
T DRIVE © IN USEL 


sCLEAR DATA PATTERN A 
sCLEAR DATA PATTERN B 


s6Ce IF 


PATTERN OF ONES 


p8R IF 60 
s8ET PATA TO ONES 
sSET PATB TO ONES 


psec IF 
pORANCH 
SET UP 
sSET UP 


pTHIS CODE DUMP THE SELECT DATA 


MoV WC Rd 
MOV oBUrp, Re 
MoV PATA, RY 


sSET UP 
9ST UP 
9SET UP 


PATTERN OF ZEROS 
IF 80 

WORST CASE 

WORST CASE 


PATTERN IN THE DATA BUFFER IN CORE 
COUNTER 


MEMORY POINTER 
PATTERN IW RY 


he 
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379 002260 6137602 012576 MOV PATB,R2 SET UP PATTERN IN RZ ( 
360 002264 610128 166 MOV Rie (RO)e MOV 18T PAT INTO MEM 

381 002266 610228 MOV R2,(RO)o p4OV 2ND PAT INTO MEM 

382 002270 605303 DEC R3 pKEEP COUNT ( 
383 002272 605303 oec R3 pKEEP COUNT 

384 002274 601373 BNE is 900 IT AGAIN IF R3 NOT @ 
365 

— pTHIS CODE SETS UP FOR THE ACTUAL FORMAT 

38 

388 602276 004737 966016 WRHDRIs JSR PC, SETTOL 9GO0 SET UP DRIVER TABLE q 
389 002302 004737 0606328 JSR PC, SETHOR 9GO INITIALIZE HEADERS IN THE SECTOR BUFFER IW CORE 

398 002306 0046737 607348 JSR PC, CKCLK 160 START UP THE CLOCK IF AVAILABLE 

391 002312 905037 612842 WRHDAR2s CLR e0F su sCLEAR ERROR COUNTER ( 
392 @02316 905037 612367¢ CUR RETRY SZERO THE RETRY COUNTER 

393 002322 106037 012722 CLRB FMTOPBeLe sRESTORE SECTOR 

394 002326 613737 612604 612716 MoV MWC» FMTOPB OG pRESTORE WC ( 
395 002334 612737 020300 612720 MOV OBUFP,FATOPBe6 RESTORE CA 

396 002342 008737 0125446 787 MODE s°FORMAT® OR "CHECK® MODE ? 

397 002346 901416 BEO CKHDR g8R IF *CHECK® MODE ( 
396 602350 112737 600163 612714 WRHORs HNOVD 6163, 7HTOPBC2 96ET WRITE HEADER & DATA COMMAND IW TOL 

399 002356 0046037 0813476 183 JBR RO, RPOS 9GO FORMAT A TRACK 

400 002362 0612712 FMTOPS pADRS OF PARAMETERS © TOL ( 
401 002364 900774 OR is pWAIT FOR QUEVE IF FULL 

402 002366 006737 612730 268 707 _ FRUTDPBO16 p4AIT FOR COMMAND TO COMPLETE 

483 002372 601778 BLo 28 sBRANCH IF NOT DONE ( 
404 002374 1006009 BPL CRHOR sBRANCH IF NO ERROR 

405 8002376 0046737 603716 JGR PC, ER 160 RESOLVE ERROR 

8 002402 0600762 aR WRHOR 9GO TRY AGAIN { 
40 

oe gTHE CODE SETS UP FOR THE FORMAT CHECK 

40 { 
410 002404 112737 ©00193 612714 CKHORs MOVB 6153, 74TOPBe2 pS6ET WRITE CHECK HEADER & DATA COMMAND IN ToL 

411 002412 604037 013476 18s JER Ra,pRPYS 9GO CHECK THE TRK JUST FORMATTED 

412 002416 612742 FMTOPB sADRS OF PARAMETERS © TBL { 
413 002420 900774 ba Le pWAIT FOR QUEVE IF FULL 

414 002422 605737 9012730 a6e 767 FMTOPBO16 p¥AIT FOR COMMAND TO COMPLETE 

415 002426 901775 BEG 28 pORANCH IF NOT DONE | 
416 002430 109006 BPL G00D pORANCH IF NO ERROR 

417 002432 904737 0903716 JSR PC, ER 360 RESOLVE ERROR 

418 002436 905737 01235446 T6T wODE s°FORMAT® OR "CHECK® MODE FP ( 
419 602442 0901760 TY 4°) CKHOR sOR IF *CHECK® MODE 

420 002444 900741 BR WRHDOR spEReREFORMAT SECTOR 

421 002446 905737 013542 GOOD: T8T sorsu s6EE IF RETRY { 
422 602482 001421 BEG LooPTs sBRANCH IF NOT : 

423 8002454 022737 900002 012542 Cup 02,60F6u p6EE If LAST RETRY 

424 002462 6081012 BNE 18 sBRANCH IF HOT | 
425 002464 123737 612612 612722 Cups MAXSEC,FATOPBeje@  ,SEE If LAST SECTOR IN TRK 

426 0902472 001411 BEQ LooPpTs sORANCH IF 80 

427 002474 604737 906266 JER pc, scauc 360 SET UP TOL FOR REMAINING SECTORS ( 
428 0862500 005737 012544 747 MODE s°FORMAT® OR °CHECK® MODE 1 

429 002504 0601737 8c£o CKHOR gOR IF °CHECK® MODE 

43@ 002506 600720 BR WRHOR 960 FINIGH FORMATTING TRK ( 
431 002518 090659237 6123642 180 ruc SOF au pRECORD GOOD RETRY 

432 002514 9007158 BR WRHDR sTRY ONCE MORE 


ee 
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433 
434 
435 
436 
437 
438 
439 
442 
441 
442 
443 
444 
445 
446 
447 
448 
449 
452 
451 
452 
453 
454 
455 
456 
457 
458 
459 
462 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
4860 
481 
462 
463 
404 
465 
466 


@42516 
042524 
202526 
082530 
062534 
002536 


682540 
002544 
082550 
602554 
0802562 
002570 
002576 
692602 
002610 
002616 
082622 
002624 
602626 
602632 
002634 
062636 
002642 
002644 
002652 
602654 
202660 
002666 
082670 
002674 
002700 
002704 


002706 
002714 
002716 
002722 
002724 
082730 
002734 
002736 
002742 
002746 
002750 
002756 
002764 
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@32737 
001401 
080671 
604737 
000401 
000665 


005037 
004737 
004737 
013737 
012737 
012737 
005037 
013737 
412737 
004037 
012712 
000774 
005737 
001775 
10000) 
004737 
600406 
023737 
001402 
004737 
023737 
001453 
005237 
004737 
005237 
000744 


632737 
001037 
064537 
012474 
004737 
004537 
012444 
004737 
004537 
012460 
042737 
413737 
013737 


040000 


006166 


@12606 
006016 
006320 
012550 
177776 
012622 
012722 
612550 
000173 
013476 


012730 


003716 
012622 


002706 
012546 


012572 


006374 
012724 


620000 
005166 


006744 
005166 


0100008 
012625 
012622 


177570 


012572 
012716 
012720 


012724 
012714 


012572 


177570 


012622 
012614 
012616 


"RPO4 FORMATTTER PROGRAM® 
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NXTRKS 


ENDCKs 


HDOREADS 


HDRCKs 


HDRCK{ 8 


CMPERS 
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SB1T14,@8Sak 
WXTRK 

WRHDRQ2 

PC, TRKTST 
ENDCK 

WRHOR2 
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sSEt IF LOOP ON CURRENT TRE 
sHRANCH IF NOT 
pREPEAT SAME TRACK 


1600D0 FORMATe®GUO SKE IF DONECIF NUT, StT UP NEAT 
SRETUPN HERE IF DONE © GO CO QUICK CK 


SNOT DUNE @ GO WRITE NEXT TRACK 


HTHIS CODE “AKES SURE EACH CYLINDER FORMATTED CONTAINS The 
PPROPER CYLINDER ADDRESS, THE PROGRAM IS LOOKING FOR 


pPOSSIBLE POSITIONER ERRORS THAT MAY HAVE OCCURED DURING THE FORMAT, 


CLR 
JSR 


HEDERR 

PC, SETTBL 

PC, SETHDR 
SCYL, TEMP 
@e2,FMTDPBo4 
GREUF, FMTDPBO6 
FMTOPBe108 
SCYL,/FMTDPBo12 
6173,FMTDPBe2 
RO, RPO4 


HDREAD 
FMTOPBO16 


HORCK{ 
RBUF,BUFP 
286 

PC, CMPER 
ECYL, TEMP 
DONE 

TEMP 

PC, UPDACY 
FMTDPBo12 
HDREAD 


SCLEAR HEADER CHECK ERROR INDICATOR 
160 SET UP DRIVER TABLE 

160 SET UP HEADERS IN CORE 

#PUT SCYL IN TEMP 

9SET UP WORD COUNT 

sSET UP BUFFER ADRS 


sCLEAR THE SECTOR & TRACK ADDRESS FIELD 


SETUP THE CYLINDER FIELD 

SET UP READ HEADER & DATA COMMAND 
160 READ HEADER 

#ADRS OF PARAMETER TBL 

WAIT IF QUEVE IS FULL 

sWAIT FORK COMMAND TO COMPLETE 
sB8RANCH IF NOT DONE 

BRANCH IF DONE 

160 RESOLVE ERROR 

SBYPASS THE COMPARSION 

sSEE IF CYL READ EQUALS CYL EXPECTED 
#BR IF CYL CORRECT 

sREPORT INCORRECT CYLINDER 

s8EE IF LAST CYL 

#BRANCH IF ALL DONE 

pRECORD CYL CHECKED 

pS8ET UP FOR NEXT CYL 

pADVANCE TO WEXT CYL #8 

160 READ NEXT HEADER 


sTHIS CODE REPORTS THAT THE HEADER READ DOES NOT 
pCOMPARE WITH THE ONE EXPECTED, 


BIT 
BNE 
JSR 
MHDCMP 
JSR 
JSR 
MEXPED 
JSR 
JER 
MREAD 
BIC 
MOVB 
MOV 


CBIT13,ee50R 
is 


RS, TYPOUT 


PC,DRSN 
RS, TYPOUT 


PC,CYLTK 
RS, TYPOUT 


#10000,RBUF 
RBUF¢3,LOCTRK 
RBUF,LOCCYL 


sSKIP TYPEOUT? 
sBRANCH IF 50 
160 TYPE SOFT HEADER COMPARE ERROR 


160 TYPE ORIVE® & SN 
160 TYPE EXPECTED 


160 TYPE CYL, TRK EXPECTED 
960 TYPE READ 


sOUMP FMT22 
TRACK FROM HEADER 
CYLINDER FROM HEADER 
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DERPL®, Pil MAIN PROGRAM 
487 002772 004737 606760 JSR PC, CYLTRK $GO TYPE CYLeTRK READ 
486 002776 012737 177777 012606 MOV $01, HEDERR }SET THE CYLINDER ERROR INDICATOR 
489 003004 005737 177870 1ST eeswr pHALT? 
490 003010 100001 BPL is sORANCH IF NOT 
491 003012 ee0000 HALT pERRORe SOFT#ARE HEADER COMPARE ERROR 
492 003014 900207 168 RTS PC pRETURN 
493 
494 pEND OF FORMAT (OR CHECK) ROUTINE 
495 
496 003016 905737 012606 DOWNES 787 HEDERR SCYLINDER ERROR ? 
C 497 003022 001404 BO is sBR IF NOT 
} 498 003024 904537 905166 JSR RS,TYPOUT STYPEOUT "REFORMAT MESSAGE’ 
499 003030 012332 MBDFMT sMESSAGE ADDRESS 
$92 003033 900412 BR 38 
501 003034 905737 012544 18s T8T MODE S°FORMAT® OR °CHECK® MODE ? 
$02 003040 901404 BEO 28 sBR IF °CHECK® MODE 
© 503 003042 004537 005166 JSR RS, TYPOUT 3GO TYPE MESSAGE "FORMAT COMPLETE’ 
504 003046 0109752 MFCMPT pADRS OF MESSAGE 
S05 003080 000493 BR 46 
o $06 803052 004537 005166 283 JR RS, TYPOUT sTYPE °END OF CHECK? MESSAGE 
$e? 003086 910777 MCCMPT pADDR OF MSG 
S08 003060 032737 00001 177570 36% BIT e86e, SWR sSEL IF SWR @ SET 
Ls 509 003066 901002 BNE 66 sBR IF SET 
$10 603670 900137 001186 Jue RESTRT pAGK FOR NEXT DRIVE 
S11 003074 612706 901100 MOV @STACK, SP pRESET STACK POINTER 
C 512 003108 900137 002142 JMP 4S 900 THE FORMAT OR CHECK AGAIN 
513 
0 sie pTHIG CODE SERVICES A CLOCK INTERRUPT EVERY 160us 
51 
516 003104 612746 909020 CLOCK: nov 616,,°(8P) $PUT MILLISECONDS OW THE STACK 
517 003118 604037 016436 JER RO, RPTMR 160 REPORT TIME 
oa 518 003114 sse082 RTI SRETURN AND CONTINUE 
5i 
e $20 pTHIS IS THE EMT ERROR HANDLEReSELECTS ADRS OF ERROR HANDLER 
$22 #SAVE THE REGISTERS 
523 003116 910137 603162 EMTHNDs MOV Ri, SAVR sORIVE NUMBER 
2 524 003122 610337 093164 MOV R3, SAVRO2 pATA BIT 
$25 003126 010437 0093166 Mov R4, SAVRO4G pRHCS} ADDRESS 
$26 003132 010537 993170 nov RS, SAVROG sMOL STATE (O1T 4) 
© 527 903136 019037 903172 | mov RO, SAVRO{0 JSAVE UNKNOWN 
528 003142 010237 603174 MOV R2,SAVRO42 pSAVE UNKNOWN 
$29 003146 011600 j mov (8P),Re sGET EMT PC 
© 530 003180 614000 MOV ©(RO),RO sGET EMT CALL INSTR 
$31 083152 996300 ASL Re pTIMES 2 
532 003154 16000 173174 MOV ENTTDL©19002(R0), Re pDEVELOP EMT ADORESS 
c 533 003160 0eii0 ump (Re) 360 TO ERROR REPORT ROUTINE 
534 
e 9GAVE REGS 1,304,6 S HERE AFTER DRIVER ERRORS 1e2258 
$37 003162 66000600 SAVRs pri 
538 003164 seeeeee a pr3 
] 539 003166 sescee e pR4 
$49 003170 esecee r) RS 
C 
© 


| 


3 
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$41 
$42 
543 
544 
$45 
$46 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
$87 
556 
539 
560 
$61 
562 
$63 
564 
565 
$66 
567 
568 
569 
$70 
$71 
$72 
573 
574 





003172 
003174 


003176 
003200 
003202 
003204 
003206 


003244 
0283252 
003254 
063260 
003262 
003266 
003270 
003274 
003300 
003304 
003310 
003312 
003316 
063322 
003326 
083332 
003336 
003342 
003344 
003346 
603352 


003354 
003362 
003364 
003370 
003372 
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003210 
003244 
003354 
003468 
003606 


032737 
001003 
004537 
011023 
005737 
190001 
000080 
004737 
006002 


632737 
001031 
004537 
011065 
904337 
011762 
013703 
004737 
004737 
0046537 
011771 
613703 
004737 
004737 
004737 
004737 
005737 
190001 
00000 
004737 
000002 


032737 
001027 
004537 
011123 
004737 


020000 
005166 
1775708 


0072708 


003162 
006724 
005376 
005166 


003170 
006604 
005376 
8070664 
007150 
1775870 


067270 
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177570 Ris 


177570 R23 
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pTABLE OF ERROR HANDLERSeDRIVER LEVEL 


sILLEGAL SUBSYSTEM INTERRUPT 
SILLEGAL ORIVE INTERRUPT 

sMASSBUS CONTROL BUS PARITY ERROR 
sCONTROL BUS PARITY ERROR 

pATTENTION FROM AN UNAVAILABLE DRIVE 


pHANDLES ILLEGAL SUBSYSTEM INTERRUPT 


BIT 
BNE 
JSR 
MERI 
181 
BPL 
WALT 
JSR 
RTI 


OO81T13,0050R 


is 
RS, TYPOUT 


PC, RESREG 


sSKIP TYPEOUT? 


sBRANCH IF SO * 
STYPE ILLEGAL SUBSYSTEM INTERRUPT 
pHALT? 


sORANCH IF WOT 

pERRORe ILLEGAL SUBSYSTEM INTERRUPT 
SRESTORE ReORS 

sRETURN TO ORIVER 


pHANDLES ILLEGAL DRIVE INTERRUPT 


BIT 


OBIT1I3,005uR 


is 
RS, TYPOUT 
RS, TYPOUT 


SAVA,RD 
PC, TORNUM 
PC CRLF 
RS, TYPOUT 


SAVRO6,RI 
pC, OCTYP 
PC CRLF 
PC, SETREG 
PC, RHREGS 


sSKIP TYPEOUT? 
SBRANCH IF 80 
sTYPE ILLEGAL DRIVE INTERRUPT 


sTYPE DRIVE 


sGET DRIVE ¢@ 

960 TYPE ORIVE ¢@ 
9SET MARGIN 
sTYPE RHAS 


sGET RHAS 

9GO0 TYPE IT 

sSET UP MARGIN 

#60 PREPARE FOR TYPE 

160 TYPE REGISTERS 

sHALT? 

pORANCH IF NOT 

pERRORe ILLEGAL ORIVE INTERRUPT 
SRESTORE ROGERS 

pRETURN TO DRIVER 


PHANDLES MASSBUS CONTROL BUS PARITY ERRORS 


BIT 
BNE 
JBR 
MER 
JSR 


OB1T13,e05uR 
16 


RS,TYPOUT 
PCeCRLF 


s8KIP TYPEOUT? 
sBRANCH IF 50 
sTYPE MASSBUS CONTROL BUS PARITY ERROR 


9SET MARGIN 


cs 


a ~ o~ ao — ao Tony a o- oo ~ — a ~ ~ ~ a a ~ ~~ ~~ ~ 
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$95 003376 004537 005166 JSR RS, TYPOUT ITYPE RO,AOR 

$96 903452 012000 MRDADR 

597 003404 013703 017062 HOV RD, ADR, RB ;GET ADRS 

598 603410 0604737 006604 JSR PC,OCTYP sTYPE IT 

$99 003414 604737 005376 JSR PC,CRLF pSET MARGIN 

600 003420 004537 605166 JER RS, TYPOUT sTYPE RD, «ad 

601 ©03424 612018 MRDWRD 

602 003426 613703 017064 MOV RD, #RO,R3 9GET WRD 

603 003432 004737 906604 JSR PC, OCTYP sTYPE IT 

604 003436 004737 005376 JSR pc, CRLF sSET MARGIN 

605 003442 0605737 177870 18% TSsT OeSurR pHALT? 

606 003446 199001 BPL a4 pBRANCH IF NOT 
607 06803450 sesess0 MALT pERROR] MASSOUS CONTROL BUS PARITY ERROR 
608 003452 604737 607270 26% JSR PC, RESREG pRESTORE RgeRS 
609 003456 999002 atl pRETURN TO DRIVER 
610 

611 pMANDLES CONTROL BUS PARITY ERRORS 

612 

613 603460 032737 ©20008 177570 ER4: BIT OB8I1T13,0080R pSKIP TYPEOUT? 
614 003466 961040 BNE 16 sBRANCH IF 580 

615 003470 084537 005166 JSR RS, TYPOUT sTYPE CONTROL BUS PARITY ERROR 
616 003474 011172 HERa 

617 003476 604737 005376 JSR PC,CALF sSET MARGIA 

618 ©03502 084537 605166 JER RS, TYPOUT pTYPE WRT, AD 

619 603506 012020 MWRTAD 

620 003518 0613703 017264 MOV WRT, AD, RI 9GET ADRS 

621 003514 664737 9096604 Jar pc, OCTYP sTYPE IT 

622 003520 904737 005376 JSR Pc,CaLr pSET MARGIN 

623 003524 964537 905166 JSR RS, TYPOUT sTYPE WRT, vo 

624 003530 912030 MWRTWOD 

625 003532 013703 017262 MoV WRT, WORD sGET wRD 

626 0603536 604737 906604 JER PC, OCTYP sTYPE if 

627 003542 084737 905376 JER Pc, CALF 98ET MARGIN 

628 9003546 004837 905166 JSR RS, TYPOUT sTYPE RO, wRD 

629 603552 012010 MROWRD 

630 603554 613783 017064 MoV RD, WRD, RZ sGET wRD 

631 ©03560 904737 0096604 JSR Pc, oe rx x sTYPE IT 

632 003564 9046737 605376 JSR PC,CRLF 96ET MARGIN 

633 003870 6085737 177870 168 767 6e6uR sHALT? 

634 003574 100001 BPL za sORANCH IF NOT 
635 003576 600000 MALT sERRORe CONTROL BUS PARITY ERROR 
636 8803600 604737 9072708 26% JSR PC, RESREG pRESTORE ROORS 
637 003604 9860062 ATI pRETURN TO ORIVER 
638 

aoe SHANOLES ATTENTION FROM AN UNAVAILABLE ORIVE 
64 

641 083606 632737 ©20008 177578 ERS: BIT OB1T13,00SuR sSKIP TYPEOUT? 
642 003614 001031 BNE is sORANCH IF 80 

643 003616 084537 009166 JER RS, TYPOUT sTYPE ATTENTION FROM AW UNAVAILABLE DRIVE 
644 003622 611231 MERS 

645 003624 604537 605166 JSR RS, TYPOUT sTYPE ORIVE 

646 003630 611762 mMORV 

647 003632 013763 903162 mov GAVR,RD sGET ORIVE «@ 

648 90803636 0046737 906724 JER PC, TORNUM TYPE IT 


649 
650 
651 
682 
653 
684 
655 
656 
657 
658 
659 
668 
661 
662 
663 
664 
665 
666 
667 
668 
609 
670 
671 
672 
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003642 
003646 
003652 
003654 
003660 
003664 
003670 
003674 
003700 
003704 
003706 
003710 
003714 


003716 
003724 
003726 
603732 
003740 
003742 
003746 
003754 
003756 
003762 
003778 
003772 
003776 
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004737 
004537 
013771 
013703 
004737 
004737 
004737 
004737 
008737 
190001 
eeeene 
004737 
000002 


032737 
001402 
000137 
032737 
001402 
000137 
032737 
001402 
000137 
032737 
001402 
060137 
000137 


032737 
001402 
000137 
122737 
001002 
000137 
4122737 
061002 


005376 
005166 


063170 
006604 
005376 
0078646 
007188 
177870 


007270 


#04902 
070000 


004776 
GeaaGR 


000070 


004506 
000173 


004742 
000163 


004706 
012542 


004140 
Sielve 


005166 
005166 
177870 


012730 


012730 


012730 


012730 


012730 


012714 


012714 


177870 
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JSR 
JSR 
MAS 
MOV 
JSP 
JSR 
JSR 
JSR 
T8T 
BPL 
WALT 
JSR 
RTI 


PC,CRLF 
RS,TYPOUT 


SAVROS>R3 
PC,OCTYP 
PC CRLF 
PC, SETREG 
PC, RHREGS 
OoSwp 

28 


PC, RESREG 
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17651 PAGE 13 


#SET MARGIN 
sTYPE RHAS 


GET RHAS 

sTYPE IT 

9SET MARGIN 

160 PREPARE FOR TYPE 

960 TYPE REGISTERS 

sHALT? 

sBRANCH IF NOT 

PERROR© ATTENTION FROM AN UNAVAILABLE DRIVE 
SRESTORE ROORS 

sRETURN TO DRIVER 


sTHIS CODE DECIDES WHAT TO 00 WITH AN ERROR AT THE USER LEVEL 


BIT 
BEQ 
Jump 
sit 
8£0 
—WM 
Bit 
BfQ 
—WM 
BIT 
ate 
ump 
Jump 


pHANOLES THE DATA ERROR 


BIT 
BEO 
ump 
CMPB 
ONE 
JMP 
Cups 
BNE 
JMP 
781 


OBIT? FMTOPOC16 


670000, 7MTOPBC16 


28 
ER? 


tae pers a 
3 


SB1TIO, FHTDPBC16 
46 


670, F7"TOPBO16 
1@ 

EROA 

0173, F7NTOPBe2 
ag 

Ered 
0163,FAMTOPBe2 


CRRORG 
061T13,008uR 
Se 

RS, TYPOUT 


RS, TYPOUT 


sDID THE COMMAND TERMINATE 
sBRAWCH IF FATAL ERROR 
160 DETERMINE WHAT KIND OF DATA ERROR 
pSEE GHICH FATAL Error 
SORANCH IF A PARITY ERROR 
160 REPORT DRIVE UNSAFE 
#CHECK CONDITION OF PARITY ERROR 
SBRANCH IF FATAL MASSBUS PARITY ERROR 
160 REPORT UNCORRECTASLE MASSBUS PARITY ER 
sCHECK FOR FATAL PARITY ERROR 
p0rn IF OT 
160 REPORT FATAL MASSOUS PARITY ERROR 
s4UST BE SOFT4ARE TIMEOUT 


INDICATIONS 


sSCE IF A DATA ERROR 

pSRANCH IF 50 

960 REPORT ERROR OTHER THAN DATA 
sS8EE IF DOING A READ HEADER 
SBRANCH IF s0T 

160 REPORT ERROR OW READ HEADER 
p8EE If DOING A WRITE HEADER 
sBRANCH IF NOT 

160 REPORT ERROR OW WRITE HEADER 
916 THIS A RETRY? 

sQRAWCH IF 60 

$60 REPORT ERROR OW WRITE CHECK HEADER 
pSKIP TYPEOUT? 

sORANCH IF 50 

160 TYPE RETRIES UNSUCCESSFUL 


160 TYPE SECTOR NOT ACCEPTABLE 
pMALT?P 


pBRANCH IF NOT 
sERRORe SECTOR FAILS TO FORMAT AFTER 3 OR 2 RETRIES 


MAINDEC®) 1 eDERPLOB 


DERPLB, Pil 


703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
119 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
748 
741 
742 
743 


——————— A ACA ——— — — —— 


804114 
004122 
004124 
004130 
004132 
004134 


0041408 
004144 
004150 
004154 
004156 
004162 
004164 
004170 
004176 
004200 
004204 
004206 
004212 
004216 
004222 
004224 
004226 
004232 
004236 
004240 
004242 
004244 
004258 
004254 
004260 
004262 
0804266 
004272 
084276 
0043008 
004304 
004318 
004312 
004316 
004322 
004324 
004330 
004334 
004340 
004342 
004346 
004352 
004356 
004360 
0043646 


"RPO4 FORMATTTER PROGRAM* 


MAIN PROGRAM 


022737 
001403 
004737 
000207 
005726 
000137 


005237 
013704 
042704 
001002 
012704 
005304 
010437 
832737 
801076 
004537 
611303 
004737 
004737 
004537 
012087 
005000 
013703 
162703 
100402 
063200 
00077) 
062703 
062730 
004737 
010300 
062700 
004737 
004537 
012104 
013703 
162703 
011303 
004737 
004537 
012067 
013703 
004737 
004837 
012123 
013703 
004737 
004537 
012232 
013703 
004737 


080025 812576 66% 
006260 


768 
002516 


012542 ERRORGS 
012650 
177740 


012576 
020008 4177570 


006744 
006166 


ise 


012576 
000012 26% 


012646 
000602 


012664 
066604 
005166 


012706 
806664 
005166 


012710 
eebeed 


MACYS1 27(657) 


CMP 
BQ 
JER 
RTS 
TST 
JmeP 


€25,SAVSEC 
78 


PC, SCAKC 
pc 

(SP) 
LoopTs 


L3JeMAR©7TS 17851 PAGE 14 


$18 THIS THe LAST SECTOR IN THE TRA? 
sBRANCH IF 50 

160 SET UP TOL FOR REMAINING SECTURS 
160 TRY NEXT SECTOR 

sRESTORE SP 

sTRY NEXT TREK 


pHANDLES A DATA ERROR ON A WRITE CHECK COMMAND 


SOF Sa 
GAVREGO6, R4 
0177740,R4 


R4,S5AVSEC 
81713, 0050R 
SETCA 

RS, TYPOUT 


PC, OREN 
PC, CYLTK 
RS, TYPOUT 


Re 
SAVSEC,R3 


pc, TTo 
RG, TYPOUT 


GAVREGO4G,R3 
020R3 
(R3),R3 

PC, OCTYP 
RS, TYPOUT 


SAVREGO22,R3 
PC, OCTYP 
RS, TYPOUT 


GAVREGO44,R3 
PC, OCTYP 
RS, TYPOUT 


GAVREGO46,R3 
PC, OCTYP 


sRECORD OATA ERROR 

160 GET RHODA 

SAVE ONLY THE BAD SECTOR ⸗1 

PBRANCH IF WOT ZERO 

#RESTORE TO LAST SECTOR o1 

sADJUSGT SECTOR TO THE ONE THAT FALLED 
#SAVE IT 

pSKIP TYPEOUT? 

BRANCH IF so 

160 TYPE WRITE CHECE ERROR 


160 TYPE DOR & SN 
160 TYPE CYL & TRK 
160 TYPE SECTORs 


sCLAR TENS DIGIT 

sGET SECTOR 6 

pSEE HOW MANY TENS 
SBRANCH JF TOO SHALL 
sRECORD TEN 
SSUBTRACT AGAIN 
pMAKE SECTOR POSITIVE AGAIN 
sSET UP FOR PRINT 
9GO PRINT IT 

s4OVE LSD INTO Re 
s6ET UP FOR PRINT 
160 PRINT LEO 

960 TYPE GOOD DATA 


pGET ADRS OF FAILURE 
pBACK IT OFF BY THO 
sGET THE DATA wORD 
160 TYPE IT 

960 TYPE BAD DATA 


sGET BAD DATA AT RHDB 
960 TYPE IT 
160 TYPE RHECiS 


160 GET RHEC) 
$60 TYPE IT 
960 TYPE RHEC2 


sGET RHEC2 
160 TYPE If 





°° @ @ @ @ @ @ @ 


MAINDEC ©] 1 eDERPLoB 


DERPLB,Pil 


757 
758 
789 
760 
761 
762 
763 
7164 
765 
766 
767 
768 
769 
71708 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
761 
762 
763 
784 
765 
766 
767 
788 
769 
7908 
791 
792 
793 
794 
795 
796 
797 
796 
799 
600 
801 
802 
803 
804 
60s 
606 
807 
808 
809 
810 


MAIN PROGRAM 


004370 0804737 9067150 


004374 
004400 
0604404 
604406 
004410 
004414 
004416 
604420 
004424 
604430 
004434 
004436 
004448 
004444 
004446 
004458 
004454 
004460 
004466 
004474 
004500 
004502 
004504 


004506 
004514 
004516 
004524 
064526 
004532 
004534 
004548 
004544 
004546 
004552 
004554 
004556 


004562 
004566 
004570 
004576 
004600 
004604 
004606 
004612 


012700 
013701 
0035701 
001404 
662700 
005301 
000772 
010037 
013700 
013701 
005761 
001404 
962700 
005301 
000772 
062700 
610037 
012737 
413737 
005737 
100001 
8000060 
000207 


032737 
001422 
032737 
001010 
004537 
011332 
004737 
004537 
012307 
005737 
190001 
000008 
900137 


005737 
001026 


020300 
012576 


012720 
012604 
012576 


000404 


000404 
012600 
177376 
012576 
1778708 


0000 20 
020000 
006166 


007322 
005166 


177870 


012576 
020000 
005166 


007322 
012574 


012716 
012722 


012730 
177870 


177870 


"RPO4 FORMATTTER PROGRAM® 


SETCAS 
ioe 


283 
SETWCs 
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JSR PC, RHREGS 160 TYPE RH REGS 


pTHIS CODE COMPUTES *C & CA FOR RETRIES OW SRITE CHECK ERRORS 


MoV eBUrPp,RO sGET STARTING ADRS OF BUFFER 
Mov SAVSEC, RI sGET SECTOR 

TST Ri sSEC IF ZERO 

BEO aa sBRAKCH IF 80 

adD 6520,,R0 sADVANCE TO NEXT SECTOR 

DEC Ri sKEEP COUNT 

BR 16 9GO CHECK WEXT SECTOR 

MOV RO, FMTOPBOS sS€T UP CA OF BAD SECTOR 

MOV MeC,RO $GET WAX «C 

MOV SAVSEC, Ri sGET SECTOR 

761 Ri s6EE IF ZERO 

BEG 28 sBRANCH IF 580 

ADD 0260,,R0 pADVANCE TO WEXT SECTOR 

DEC Ri sKEZP Count 

aP is 960 CHECK WEXT SECTOR 

Ado 6260,,R0 sPOINT @C TO NEXT SECTOR 

MOV RO, BAVaC SSAVE aC OF REMAINING SECTORS 
mov 00260,,FMTDPBe4 36ET UP wC FOR BAD SECTOR 
nove SAVSEC , FUTDPBe18 pSET UP SECTOR ADRS IW TBL 
TST Oosur sHALT? 

BPL 36 pORANCH IF NOT 

HALT sERROR] DATA CRROR 

ats ec 160 REFORMAT FAILING SECTOR 


pCHECK FOR READ OR URITE UNSAFE ERROR 


817 20, F700416 sCHECK FOR AW UNSAFE 

SEQ ER6s sBRANCH IF NOT AN UNSAFE 
sit O81T13,0080R sSKIP TYPEOUT? 

BNE is sORANCH IF 60 

—* RS, TYPOUT 960 TYPE READ OR BRITE UNSAFE ERROR 
MER 

JSR PC, TYPALL 160 TYPE DATA 

JSR RS, TYPOUT 960 TYPE REFORMAT PACK 
MREFUT 

767 Sidon sHALT? 

BPL 26 sORANCH IF WOT 

HALT pERRORe READ OR BRITE UNSAFE OCCURED 
JMP RESTRT 160 GET NEXT ORIVE 
STNOLCATE A ORIVE ERROR HAS OCCURED 

T8T RETRY 818 THIS A RETRY? 

BNE 38 pORANCH IF 50 

BIT 081T13,006WR pSKIP TYPEOUT? 

ONE is pORANCH IF 60 

JSR RS, TYPOUT 960 TYPE DRIVE ERROR 
MEROB 

JSR PC, TYPALL 960 TYPE DATA 

Inc RETRY sRECORD ERROR 





G> ¢ 





MAINDEC ©] 1 eDERPLoB 


DERPLS,Pii 


611 
612 
813 
614 
615 
816 
617 
616 
619 
620 
621 
822 
623 
824 
625 
826 
627 
628 
829 
830 
831 
832 
633 
834 
635 
836 
637 
638 
839 
840 
641 
842 
643 
644 
645 
646 


656 
657 


004616 
004622 
004624 
004626 
004630 
004636 
004640 
004644 
004646 
004654 
004656 
004662 
004664 
004670 
004672 
004676 
0047008 
004702 


004706 
004714 
004716 
004722 
004724 
604730 
004734 
004736 
004740 


004742 
004750 
004752 
004756 
004760 
004764 
004770 
004772 
004774 


004776 
005004 
065006 
005012 
005014 
005020 
009024 
605026 
005032 


MAIN PROGRAM 


005737 
100001 
0000008 
000207 
622737 
001403 
005237 
000207 
032737 
001006 
004537 
012415 
004537 
012307 
005737 
100001 
eeocee 
000137 


032737 
001005 
004897 
011413 
604737 
005737 
190601 
000600 
000207 


032737 
001005 
004537 
011434 
004737 
005737 
1000061 
000000 
000207 


032737 
001010 
004537 
011556 
004737 
004537 
012226 
005737 
10600) 


177570 


000002 012574 


012574 
020000 
005166 
005166 
1778768 


007322 
177870 


007322 
177870 


007322 
005166 


177870 


177870 


1778708 


1773870 


177570 


"RES4 FORMATTTER PROGRAM® 


ERTs 


MACYS 27(657) 


TST 
BPL 
HALT 
RTS 
CMP 
BEG 


pC 

081713, 00S5uR 
58 

RS, TYPOUT 
RS, TYPOUT 


RESTRT 


L3eMARC7S 17951 PAGE 16 


sHALT? 

SBRANCH IF NOT 

SERRORe DRIVE ERROR 
TRY AGAIN 

9186 THIS THE LAST RETRY 
BRANCH IF $0 

PRECORD RETRY 

sTRY AGAIN 

sSKIP TYPEOUT? 

sBRANCH IF SO 

160 TYPE PETRIES UNSUCCESSFUL 


160 TYPE REFORMAT PACK 


sHALT? 
sBRANCH IF KOT 


SERRORe DRIVE ERROR STILL THERE AFTER T#O RETRIES 


160 ASK FOR DAILVE 


pHANDLES A DATA ERROR ON THE WRITE HEADER COMMAND 


SIT 
BNE 
JSR 
WERGC 
JSR 
bids 
BPL 
HALT 
RTS 


OB1T13,0eS0R 
is 
RS, TYPOUT 


PC, TYPALL 
Oe6uR 
26 


Pc 


sSKIP TYPEOUT? 
sBRANCH IF 60 
360 TYPE WRITE ERROR 


160 TYPE DATA 
sHALT? 
sQRANCH IF NOT 


pERRORe ERROR OCCURED ON WRITE COMMAND 


sTRY TO @RITE AGAIN 


pHANDLES A DATA ERROR OW THE READ HEADER COMMAND 


+ aaa ecm: 
RS, TYPOUT 
PC, TYPALL 
OeSurR 

ae 

pc 


s6KIP TYPEOUT? 
sBRANCH IF 50 


960 TYPE HEADER COMPARE WOT MADE 


960 TYPE DATA 
pHALT? 
pORANCH IF NOT 


pERRORe HEADER COMPARE NOT MADE 


SHANDLES THE ORIVE UNSAFE ERRORS 


BIT 
BNE 
JER 
MER? 
JSR 
JaR 
MPTERM 
T8T 
BPL 


@BIT13,0050R 
38 
RS, TYPOUT 


PC, TYPALL 
RS, TYPOUT 


sSKIP TyPEOUT? 
sBRANCH IF 80 
960 TYPE DRIVE UNSAFE 


9GO TYPE DATA 
160 TYPE FORMAT TERMINATED 


sHALT? 
pORANCH IF NOT 


— ao az lak cant a 


MAINDEC © 1eDERPLoB 


DERPLB,Pi1 


665 
866 
667 
868 
669 
870 
671 
672 
873 
674 
875 
876 
677 
678 
679 
860 
861 
802 
863 
64 
oes 
086 
667 
68 
6e9 
890 
691 
892 
893 
894 
695 
696 
697 
698 
699 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 


005042 
005050 
605052 
005056 
005660 
005064 
005066 
005072 
005076 
6051008 
005102 


005106 
005114 
005116 
005122 
005124 
005130 
005132 


005136 
005144 
005146 
005152 
005154 
005160 
005162 


005166 
005170 
005172 
005174 
005200 
005202 


000000 
000137 


032737 
001010 
004537 
011606 
004537 
012226 
004737 
005737 
100001 
o0eeee 
000137 


032737 
001005 
004537 
011656 
004737 
600000 
000137 


032737 
001005 
004537 
011716 
004737 
000080 
000197 


012501 
112100 
001403 
004737 
000773 
000205 


020000 
005166 
005166 
006744 
17787e@ 


020000 
005166 
006744 
001156 


020000 
005166 
007322 
001156 


177570 


17758708 


1775708 


"RPO4 FORMATTTER PROGRAM® 


 SBTTL 


TYPOUTS 
iss 


< 
MACY11 27(657) 13©MAR©7S 17551 PAGE 17 ( 
MALT SERROR® DRIVE UNSAFE ERROR ¢ 
UMP RESTRT 1GO GET NEXT DRIVE 
PHANDLES UNCORRECTABLE MASSBUS PARITY EPROR z 
BIT CB1T13,00SWR  ;SKIP TYPEOUT? 
BNE 18 PORANCH IF 80 ( 
J8R RS, TYPOUT 1GO TYPE UNCORRECTABLE MASSBUS PAKITY ERROR 
at ae 
BR RS, TYPOUT 1GO TYPE FORMAT TERMINATED ‘ 
MPTERM 
JSR PC /CYLTK 60 GIVE THEM CYL, TRKSXXX, XX 
18ST O05WR sHALT? 4 
BPL 28 PORANCH IF NOT 
HALT PERROR© UNCORRECTABLE MASSBUS PARITY ERROR 
JMP RESTRT $60 GET WEXT DRIVE r 
pHANDLES FATAL MASSBUS PARITY ERROR 
BIT 081T13,008WR 4;8KIP TYPEOUT? : 
BNE ia PORANCH IF 80 
JER RS, TYPOUT I60 TYPE FATAL MASSBUS PARITY ERROR r 
HERO 
JER PC/CYLTK 1GO GIVE THEM CYL, TRKSXXX, XX 
WALT SFATAL MASSBUS PARITY ERROR fi 
UMP RESTRI SRESTART PROGRAM 
V 
PHANDLES A SOFTWARE TIMEOUT (HUNG RPO4) 
BIT OBIT 3,003WR ,8KIP TYPEOUT? 
BNE 18 sOR IF 80 
JSR RS, TYPOUT 1GO TYPE SOFTWARE TIMEOUT? ‘ 
MERIO SADRS OF MSG 
JER PC, TYPALL 1GO TYPE DATA 
HALT 1SYSTEM HUNG © OPERATION FAILED TO COMPLETE fl 
ump RESTRT 1GO RESTART PROGRAM 
SUPPORT SUBROUTINES ( 
STYPES OUT CHARACTERS POINTED TO BY THE ADRS IN Ri ( 
MOV (RS)¢>RA $SET UP ADRS OF KESSAGE 
MOV = (RA) oy RO 1GET CHARACTER 1— 
oxo 28 SARE WE DONE TYPING? 
Jar PC, TTO 160 TYPE IT 
oR if sGET WEXT CHARACTER ( 
RTS RS JEXET © DONE TYPING 
pDOES THE ACTUAL TYPING © TYPES THE NUMBER OF NULL CHARS SPECIFIED IN *NULCNT? { 
i 
zy? 
( 


- 


a! 


MAINDEC 1 1 eDERPLoB 


DERPL8,Pi1 


919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 


003204 
005206 
005212 
005216 
005228 
005224 
005236 
005232 
005234 
005236 
005249 


005242 
005246 
005250 
005256 
005260 
005262 
005266 
005270 
005274 
005300 
005304 
005306 
005312 


005314 
005320 
003322 
005326 
005330 
005334 
005340 
005342 
005346 


005350 
005354 
005360 
005364 
605370 
005374 


605376 
005402 
605404 


010446 
013704 
108737 
100375 
110037 
022760 
001002 
005304 
001366 
012604 
000207 


105737 
100375 
013700 
020027 
001405 
020027 
001402 
004737 
042700 
022700 
001002 
000137 
000207 


020027 
100416 
020027 
1800005 
042708 
062716 
000207 
0046737 
000207 


013700 
062700 
004737 
0127080 
004737 
000207 


004537 
007574 
000207 


012620 
1778646 


177866 
000015 


177560 


177962 
000215 


000212 
005204 
000200 
800063 


o00e6e 
000072 


177760 
00000. 


*RPO4 FORMATTTER PROGRAN* 
SUPPORT SUBROUTINES 


TTO¢ 
TTOis 


TTO2s 


TTIs 


166 
CTRLRS 


WUMTSTS 


CRLF Ss 
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MOV R4,°( 8P) #SAVE RO 

MOV NULCWHT, RE SET UP NULL COUNT 
TsTs8 Tes 9186 PRINTER AVAILABLE? 
BPL TT01 sNO © KEEP LOOPING 
MOVE RO, TPB SPRINT CHAR 

Cup 615,RO 916 IT A RETURN? 


SBRANCH IF NOT 
DEC R4 sKEEP TRACK OF NULL CHARS 


BNE TT04 sBRANCH IF MORE NULL CHARS 
nov (SP)o,R4 SRESTORE RE 
RTS pc sEXIT FROM PRINTING 


pREADS THE KEYBOARD AND CHECKS FOR "CONTROL C° 


TsTs TKS SCHECK FOR CHAR 
BPL TTI sWAIT FOR CHAR 
mov TKB, RO sPUT CHAR IW RO 


CMP RO. 0215 pOON°T PRINT ACR 
B8EO 46 sSKIP OVER TYPE 
Cup RO, 0212 sDON*°T PRINT A LF 
BEQ is SKIP OVER TYPE 


JSR PC, TTO 
Bic 6200,Re 


sECHO CHAR TYPED 
sGET RIO OF BIT 7 


Cup 63,R@ 916 CHAR IW RO A CHTRL CP 

ONE CTRLR 940 @ SKIP OVER JUMP 

Jp RESTRI pYE6 © GO TO START OF PROGRAM 
RTS ec pRETURN TO MAIN PROGRAM 


STESTS THAT A INPUT CHARACTER WAS A NUMBER 


Cup RO, 060 $36 ASCII SMALLER THAN 60? 
OMI TYPER sYES © GO TO TYPER 

Cup RO, 072 918 ASCII LARGER THAN 717 
BPL TYPER sYES © GO TO TYPER 

Bic 6177760,R0 sGET RID OF ASCII 

ADD 02-(SP) ,ADD TWO TO RETURN ADRS 

até pc sRETURN © GOOD NUMBER 

JSR PC, QUES 960 TYPE PP 

Rts ec gRETURN TO HAIN PROGRAM 


SPRINTS OUT THE DRIVE SELECTED NUMBER 


nov USEL, RO sGET ORIVE SELECTED 
AoD 0266,R0 sMAKE IT ASCII 

J6R pc, 710 160 PRINT IT 

mov 6240,R@ pPROVIDE SPACE 

JgR PC, TTO 160 PRINT IT 

RTS pc pRETURN 


THIS ROUTINE DOES A CARRIAGE RETURN ANDO LINE FEED 
JSR RS, TYPOUT sPRINT LF @ CR 

MCRLP 

RTS pc pRETURA 


3? 








MAINDECCLICDERPL©R °RPO4 FORMATTTER PROGRAM® MACYS1 27(657) I3eMAR©7S 17951 PAGE 19 
DERPLB,Pii SUPPORT SUBROUTINES 


973 

974 STHIS ROUTINE PRINTS TP ON IMPROPER KEYBOARD IwPUTS 
975 

976 005406 604537 005166 QUES: JSR RS, TYPOUT 9G0 TYPE “ESSAGE 

977 0805412 607567 MQUES pADRS OF MESSAGE 

978 005414 0990207 RTS pe sRETURN TO MAIN PROGRAM 

979 

960 STHIG ROUTINE SETS UP THE TTY INPUT BUFFER AND COUNTER 
961 

962 005416 612703 612634 SETPCs HOV OCPTR,RI sPUT CHAR PTR IN RJ 

983 005422 0610204 nOV R2,R4 SPUT CHAR COUNT IN RG 

005424 900267 RTS pc sRETURN 

98 

—8 sTHIS ROUTINE CLEARS THE TTY INPUT BUFFER 

988 8605426 0604737 805416 CLROUFS JER PC, SETPC 160 SET UP POINTER @ COUNT 

969 005432 005023 18s CUR _ ORDDe pMOVE @°S THRU RI RE TIMES 

990 005434 605304 DEC Ra pREEP COUNT 

991 005436 001375 BNE is pOOWE IF nq EG @ 

992 005448 004737 905416 JSR PC, SETPC sSET UP POINTER @ COUNT AGAIN 
993 005444 980207 RTS pc sExIt 

994 

995 pTHIS ROUTINE READS & CHECKS THE CYL & TRK INPUT FROM THE TTY 
996 

997 005446 612782 #900004 GETOATs MOV 04,R2 pSET UP MAX @ OF DIGITS EXPECTED 
998 005452 684737 805426 JSR PC CLROUF 160 CLEAR OIGIT BUFFER 

999 005456 904737 005242 JSR PC, TTI 960 GET CHAR 

1008 605462 622700 0600104 Cup 0104,R0 p18 IT THE DEFAULT CHAR? 

1001 005466 601031 OWE ae pORANCH IF HOT 

1002 005478 6069737 0129432 161 sorseu p16 THES STARTING OR EHOING CYL? 
1003 005474 001416 BEQ is SBRANCH IF EWOING CYL 

1004 005476 6895037 012550 CUR ScYL 9ST STARTING CYL TO 6 

1005 ©805502 985037 612556 CLR STRK 9SET STARTING TRK TO @ 

1006 085506 6804537 0095166 J6R AS, TYPOUT SINDICATE DEFAULT VALUES 

1907 005512 6108272 NCYTKO pADRS OF HBG 

1008 005514 600411 oR ae 160 SET UP RETURD 

1009 605516 612737 600632 612546 i683 mov 0430,,ECYL sGET ENDING CYL TO 410 

1018 605524 612737 900022 612552 MOV 616,, ETRE 9SET ENDING TRK TO 16 

1011 605532 604537 095166 JGR RS, TYPOUT sINDICATE DEFAULT VALUES 

1012 005536 010324 MCYTRKS pADRE OF MEG 

1013 805840 662716 #009002 abe adod 62¢(SP) 400 TWO TO RETURN ADRES 

1014 0605544 900207 ats Pc sRETURMN FROM DEFAULT COND, 
1015 605546 684737 6052462 368 JSR pC, TTI 960 GET NEXT CHAR FOR CYLINDER 
1016 005552 06227808 900177 aos Cup 0177,R0 926 IT A RUBOUTT 

1017 605556 601001 BNE 36 pBRANCH IF KOT A RUBOUT 

1018 005560 900207 RTS ec 160 RETYPE LINE 

1019 605562 622700 9090064 568 Cup 654,R0 936 IT THE SEPERATOR? 

1020 6805566 661024 BNE 8 sSRANCH IF NOT A COMMA 

1021 0055870 684737 0861206 J6R PC, OECBIN sCONVERT CYL @ TO BINARY 

1022 005574 023727 012572 880633 cup TEMP, 0411, p6EE If CYL REQUEST 16 GREATER THAN 410 
1023 005602 103404 acs es SBRAWCH IF BITHIN LIMITS 

1024 006604 604537 605166 JSR RS, TYPOUT sTYPE LIMIT EXCEEDED 

1025 005610 610334 MCLIMT pADRE OF MESSAGE 


1026 005612 0600207 RTS PC pRETURN TO RETYPE LINE 





| 
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1627 
1626 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1636 
1037 
1038 
1039 
1940 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1082 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1078 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1000 


005614 
005620 
005622 
005630 
005636 
005648 
005644 
005646 
005650 
005652 
005656 
005660 
005662 
005664 
005670 
005674 
005700 
005704 
005706 
005718 
005714 
005716 
008722 
005730 
005732 
005736 
005740 
005742 
005746 
0o0s7Se 
005756 
005764 
0057708 
005772 
065776 
606006 
006002 
066004 
0060108 
006012 
006014 


006016 
006024 
006030 
006036 
006044 
006080 
006056 
006064 
006072 
086076 


SUPPORT SUBROUTINES 


005737 
601403 
013737 
013737 
000412 
064737 
000207 
605304 
001003 
004737 
000207 
010023 
000731 
012702 
004737 
004737 
022700 
061001 
0006207 
622700 
601026 
004737 
823727 
103404 
004537 
010373 
000207 
608737 
001403 
013737 


000727 


413737 
105037 
013737 
012737 
108037 
419737 
013737 
012737 
008037 
000240 


012572 
012572 


005314 
O85 408 


@66803 
005426 
605262 
000177 
6868048 


966128 
012872 
005166 
012842 
013572 
012972 
ee6se2 


865406 


012730 


012712 


012716 
012720 


012723 
612724 
012726 
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148% 


1565 


SETTBLS 
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SOF Sw $18 THIS THE STARTING OR ENDING CXL? 
78 SORANCH 3F ENDING CYL 
TEMP, SCYL sSAVE TEMP AT STARTING CYL 
TEMP, ECYL pSAVE TEMP AT ENDING CYL 
106 $60 GET TRK ADRS 
PC, MUMTST s6EE IF A WUMBER 
pc SRETURN © BAD TYPE 
R4 pREECP COUNT OF DIGITS COMING 14 
9a pORANCH IF WOT THE 6TH 
PC, QUES p¥O COMMA AFTER 3} DIGITS © TYPE ?P? 
PC pRETURN © HUMBER TOO BIG 
RO, (RID® SSAVE DIGIT IN BUFFER 
a8 sGET WEXT CHAR 
93,R2 sSET UP MAX © OF OIGITS EXPECTED 
PC, CLABUF $60 CLEAR DIGIT BUFFER 
PC, TTI $60 GET NEXT CHAR 
0177,R@ $18 IT A RUBOUT? 
128 sGRANCH IF NOT A RUBOUT 
pC $60 RETYPE LINE 
015,R0 $18 IT A TERMINATOR? 
188 sORANCH IF NOT ACR 
PC, DECBIN SCONVERT TRK @ TO BINARY 
TEMP, 819, s6EC IF TRK REQUEST 16 GREATER THAN 16 
438 pORANCH IF WITHIN LIMITS 
RS, TYPOUT pTYPE LIMIT EXCEEDED 

pADRS OF MESSAGE 

Pc PRETURN © TRK ADRS TO LARGE 
sorew $26 THIS THE STARTING OR ENDING TRKP 
146 SORANCH IF ENDING TRK 
TEMP, STRK PGAVE TEMP AT STARTING TRK 
TEMP, ETRK SSAVE TEMP AT ENDING TAK 
$2+(8P) ADO TWO TO RETURN ADRS 
pC pRETURW © CYL & TRK AORS ARE SAVED 
PC, NUNTST p6CE IF A WUMBER 
pec pRETURN © BAO TYPE 
Re sKEZP COUNT OF DIGITS COMING IN 
166 pSRANCH IF WOT THE 3RD 
PC, QUES p¥O CR AFTER 2 DIGITS © TYPE 77 
PC pRETURN © NUMBER TOO BIG 
RO, (R3)¢ pSAVE DIGIT IN BUFFER 
116 sGET NEXT CHAR 


pTHZS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE 


MOVB 
CURB 


USEL,FUTOPB SET UP ORIVE @ 

FMTOPBCS CLEAR HIGH ORDER ADRS BITS 

MWC ,FUTOPB C4 pLOAD UP WORD COUNT 

CBUFP,FMTDPBe6  sLOAD UP CURRENT ADRS 

FuTOPBOLE sSET SECTOR TO ZERO 

STRK,FATOPBO1) sSET UP STARTING TRK ADRS 
SCYL,FMTDPBe12 sSET UP STARTING CYL 

OSAVREG, FMTOPBO14 pLOCATE POINTER TO °RH? REGS 
FMIDPBO16 sCLEAR RPO4 STATUS 
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1061 
1062 
1083 
1084 
1065 
1066 
1067 
10060 
1089 
1098 
-1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 


006120 
006124 
006126 
006132 
006134 
006142 
006144 
006146 
006152 
006154 
006162 
006164 


006166 
086172 
006174 
006176 
006202 
0206266 
006214 
006216 
006222 
006224 
086230 
006234 
006240 
806244 
006246 
006252 
006256 


606260 
006266 
006274 
606300 
006304 
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000240 
0137937 
013737 
000207 


014337 
014300 
162700 
103404 
062737 
000773 
014300 
1627008 
103464 
062737 
000771 
600207 


005737 
001001 
000207 
005337 
105237 
622737 
001403 
005237 
000411 
006037 
105037 
008237 
004737 
000402 
004737 
062716 
000207 


013737 
062797 
005237 
005037 
000207 


012554 012562 
012556 0612560 


012872 DECBINs 
600001 ADDi6s 
000012 012572 

MSDE 
000001 ADD1005 
000144 612572 

OTBONES 
012560 TRKTSTs 
012568 iss 
612723 
800022 0612562 
012562 
012562 rity 
612723 
012724 
OGG274 
006420 368 
080002 ang 


812600 612716 SCAwcs 
091018 0612726 

012722 

8126 42 
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NOP 

MOV STRK, TRKCNT sSET UP PARTIAL CYL TRACK COUNT 
MOV TTRKS, TTRKSC sSET UP TOTAL TRACKS COUNTER 
RTS pc sRETURN FROM SETUP 


#THIS ROUTIVE CONVERTS THE CYL OR TRK ADRS TO OCTAL 


MOV o(R3), TEMP sSET UP ONES DIGIT 
MOV ©(R3),RO sPUT TENS DIGIT IN Ro 
ous 01,RO p8EE HOw MANY 10°S 
BCS MSD 3GO TRY HUNDREDS 

ADD 612, TEMP sRECORD 10 

BR ADDIe sTRY AGAIN 

MOV ©(R3),RO SPUT HUNDREDS DIGIT IW Re 
6uUB 61,Re s6EE HOW MAMY 100°S 
BCs OTBOWE pExit If DOKE 

ADD 0144, TEMP sRECORD 100 

BR A001 00 gTRY AGAIN 

RTS pc pEXIT 


pTHIS ROUTINE CONTROLS THE DISK ADDRESSING AND TOTAL TRK COUNT 
p17 16 ENTERED AFTER FYERY TRK OPERATION 


TST TTRKSC sSEC If LAST TRK 

BNE 18 sBRAWCH IF WOT LAST TRK 

ATS ec pRETURN LAST TRK OF OPERATION 

DEC TTRKSC pCOUNT TRK JUST COMPLETED 

Ince FMTDPBe11 pADVANCE TREK @ 

Cup 022, TRKCNT 916 THIS THE LAST TRK IW CYL? 

BEQ 26 sBRAWCH IF 60 

rnc TRKCNT sCOUNT UP TRK WITHIN CYLS 

BR a8 pBRAWCH TO SET UP RETURN 

CUR TRKCNT SINITIALIZE TRACWT FOR NEXT CYL 

CURB FMTOPBe1s SRESET TRK ADORE TO O 

INC FMTDPBO12 SUPOATE CYLINDER 6 

J8R PC, UPDACY SUPOATE CYLINDER @ IN MEM TABLE 
_ BR 4s 160 TO RETURN SETUP 

JSR PC, UPDATK SUPOATE TRACK @ 18 MEM TABLE 

ADD 620(SP) sADD TWO TO RETURN ADRS 

RTS Pc pEXITS HERE IF NOT LAST TRACK 


sTHIS ROUTINE SETS UP WC & CA FOR REMAINING SECTORS 
pAPTER A WRITE CHECK ERROR 


MOV SAVHUC,FMTDPBe4 SET UP WC FOR REMAINING SECTORS 
AOD 0520,,7MTOPBe6 4SET UP CA FOR REMAINING SECTORS 
INC FMTOPBO1@ pADVANCE TO NEXT SECTOR IW TBL 
CLR 60F Su SREGET RETRY COUNTER 

RTS pc SRETURN TO COMPLETE TRK FORMAT 


THIS ROUTINE INITIALIZES THE SECTOR COUNT AND HEADER POINTER 
pFOR THE HEADER & DATA BUFFER IN MEMORY 
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1135 
1136 
4137 
1138 
1139 
1142 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1152 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
4177 
1178 
1179 
1160 
1161 
1182 
1163 
11864 
1185 
1166 
1187 
1168 


46306 
006312 
046316 


026320 
006324 
076330 
006334 
046336 
006342 
006344 
206350 
#06352 
606354 
006356 
096360 
006364 
006366 
006370 
006372 


006374 
006400 
006402 
666406 
006412 
006414 
006416 


096420 
006424 
006426 
006432 
006436 
006440 
006442 


006444 
006450 
066454 
006456 
006462 
006466 
006470 
006472 


013701 
012700 
060207 


004737 
013702 
013703 
000303 
003737 
001402 
032702 
2180220 
010320 
008020 
975010 
062708 
085203 
005301 
002367 
200207 


004737 
005220 
042710 
062700 
005301 
602371 
000207 


004737 
005720 
062710 
062700 
005301 
002372 
000207 


0127062 
013780 
005001 
012703 
162700 
100462 
005201 
000773 


012612 
@2030¢ 


006306 


177400 
001006 


000400 
001010 


010741 
012616 


000144 
000144 
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SECCNTS 


SETHDRs 


UPDACYS 
18s 


UPDATKSs 
188 


BINDECSs 


iss 
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MOV MAXSEC,RI SET UP SECTOR CUUNT 

MOV eRUFP,RE SSET UP HEADER POINTER LN kA 

RTS Pc pRETURA 

THIS ROUTINE SETS UP THE CYLINDER ADRS, FORMAT BIT, TRACK AND 
pSECTOR ADRS IN MEMORY wITH TKE STARTING CYL © TKK INFORMATION 

JSR PC, SECCNT SET UP SECTOR COUNT AND HEADER PUINTER 
MOV SCYL,R2 #PUT STARTING CYL @ IN RQ 

MOV STPK,R3 sPUT STARTING TRK @ IN RJ 

SAB R3 pJUSTIFY TRACK AURS 

TST SEC28 SEE IF 28 OR 22 SECTOR “ODE 

BEG is 36% If 20 SECTOR MODE 

BIS 61¢0@e8-/R2 sSET THE 22 SECTOR FORMAT BIT 

MOV R2e(R@)¢@ sWRITE If HEADER AREA OF CORE THE CYL ADRS 
MOV R3e(Re)o SeRITE IN HEADER AREA OF CORE THE TRK AURS 
CLR (RO) sCLR 1ST KEY*OkKOD 

CLR (Re) #CLR 2ND KEYsORD 

ADD #514,/R0 ;SET UP FOR NEXT HEADER 

INC R3 UPDATE SECTOR ADRS FUR NEXT HEADER 

DEC Ri SMAINTAIN COUNT OF SECTORS 

BGE 18 sBRANCH JF NOT LAST SECTOR 

RTS pc EXIT © HEADERS ARE LOADED INTO CURE 

sTHIS ROUTINE UPDATES THE CYLINDER ADRS OF THE HEADER ®ORVS IN CORE 
JSR PC, SECCNT sS8&T UP SECTOR COUNT AND HEADER PUINTER 
rnc (RO)¢@ PINCREMENT FOR NEXT CYLINDER 


BIC 6177400, (RO) pRESET TRK ADRS TO @ 


ADD 6516,,R0 sSET UP FOR NEXT HEADER 
DEC Ri sCOUNT SECTORS 

BGE 18 #BRANCH IF NOT LAST SECTOR 
RTS pc sEXIT 


sTHIG ROUTINE UPDATES THE TRACK ADRS OF THE HEADER WORDS IN CORE 


JSR PC, SECCNT 9SET UP SECTOR COUNT AWD HEADER POINTER 
187 (RO)¢ SPOINT HEADER POINTER TO TRK © SEC ADRS 
ADD 0480, (RO) sINDEX TRK ADRS 

ADD 6520,,R0 sSET UP FOR NEXT HEADER 

DEC RY sCOUNT SECTORS 

BGE 16 sBRANCH IF NOT LAST SECTOR 

RTS Pc sEXIT 

sTHIG ROUTINE CONVERTS FAILING CYL & TRK ADRS TO DECIMAL FORK TYPE 
MOV OMCYLTK,R2 SESTABLISH POINTER FOR CYL & TRA TYPE 
MOV LOCCYL, R@ 160 GET BINARY CYL ADRS 

CLR R\ pRESET WEIGHT COUNT 

MOV 6144,R3 sSET UP WEIGHT 

sus 6144,Re sSUBTRACT i1¢@ DEC 

BMI ri) SBRANCH IF @ NOT LARGE ENOUGH 

INC Fi pRECORD EACH 108 DEC 

BR is s8UB AGAIN 


— 
— 
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11869 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
12008 
1201 
1202 
1203 
1204 
1208 
1206 
1207 
1208 
1209 
12108 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
12308 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 


MAINDECe] 1 eDERPLoB 
DERPLB, Pit 


066474 
006500 
006502 
006506 
006512 
006514 
006516 
006520 
006824 
006530 
006832 
006536 
006542 
006544 
006550 
006552 
006554 
006556 
006562 
006566 
006570 


006572 
006576 
006606 
006602 


006604 
0066108 
006612 
006614 
006616 
006622 
006624 
006626 
006630 
006632 
006634 
006636 
006640 
006644 
006650 
006654 
006656 
0066608 


604737 
005001 
012703 
162700 
100402 
005201 
000773 
004737 
062700 
116022 
4112722 
1137068 
005001 
162700 
106402 
605281 
000773 
004737 
062700 
110022 
000207 


062761 
410122 
060308 
600207 


012702 
00616) 
006103 
910300 
042700 
oe04des 
006103 
006103 
606103 
006103 
010300 
006003 
8427060 
062700 
004737 
008302 
001362 
900207 


004537 
011762 


006572 


606872 
000260 


000264 
012614 


006872 
000260 


177776 


1777708 
608268 
832064 
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OCTYPs 


CHOPS 


TYOCTs 
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J6R 
CLR 


PCeMKDIG 


€260,Re 
RO, CRI) 
0254,(R2)¢ 
LOCTRK, RO 
Ri 

012,R8 

68 


86 

PC, MKDIG 
0260,R0 
RO, (R26 
pc 
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160 MAKE ASCII DIGIT & STORE 
sRESET WEIGHT COUNT 

sS€T UP wELGHT 

sSUBTRACT 1¢@ DEC 

sBRANCH IF @ NOT LARGE ENOUGH 
sRECORD EACH 1@ DEC 

96U8 AGAIN 

160 MAKE ASCII DIGIT & STORE 
sMAKRE LEO ASCII DIGIT 

sAND STORE IT AWAY 

sSTORE A COMMA AS A SEPARATOR 
pLOAD RO WITH CURRENT TRK ADRS 
sRESET WEIGHT Count 

SSUBTRACT i1¢@ OEC 

pBRANCH IF 6 NOT LARGE ENOUGH 
sRECORD EACH 1@ DEC 

9SUB AGAIN 

9GO MAKE ASCII DIGIT & STORE 
pMAKE LSD ASCII O1GIT 

sSTORE LSD OF TREK 

160 RETURW AND TYPE BAD CYL & TRK 


sTHIS ROUTINE STORES THE FAILING CYL & TRK ADAS IN MCYLTK 


ADD 
MOVE 
ADD 
RTS 


€260,Ri 
Rie (R2)e 
R3,RO 

pc 


sMAKE ASCII DIGIT 

9PUSH DIGIT INTO mCYLTK 
pMAKE @ POS AGAIN 

pRETURN TO GET UP WEXT DIGIT 


sTHIS ROUTINE CONVERTS BINARY TO OCTAL FOR TYPE*R3 HAS 0 


sSET UP DIGIT COUNTER 
pADJUST FOR FIRST TYPE 
6 

sSEND TO TYPE REG 
sCLEAR OUT GARBAGE 

160 MAKE OIGIT 

pADJUST FOR WEXT TYPE 
: 

a 


5 

pSEND TO TYPE REG ~ 
sSAVE CARRY 

sCLEAR OUT GARBAGE 

sMAKRE A DIGIT 

sTYPE If 

916 IT THE LAST? 

sBRANCH IF 80 

sOONE TYPINGeRETURN 


pTHIG ROUTINE TYPES THE DRIVES AND 8/N 


JER 
MDRV 


RS, TyPOUT 


160 TYPE DRIVES 





y 
J ee ee ee ee 
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1243 066678 613763 612652 MOV SAVREGO10,R3 #GET DRIVE & FROM RHCS2 
1244 006674 604737 0606724 JBR PC. TORNUM 160 TYPE ORIVE «6 
1245 606700 0604537 005166 JSR RS» TYPOUT sTYPE SNe 
1246 006704 612040 MBN 
1247 686706 613703 612672 MOV SAVREG+30,R3 sGET DRIVE SN 
1248 686712 004737 607020 JSR PC, OECTYP 160 TYPE IT 
1249 006716 604737 605376 JSR PC, CRLF sSET UP MARGIN 
1258 006722 600207 RTS ec pRETURN TO ER HANDLER 
1251 
tot STHIS ROUTINE TYPES THE FAILING DRIVE 6 
125 
1254 006724 04642703 177770 TORNUME BIC 6177776,R3 sCLEAR JUNK 
1255 006730 616300 Mov R3,RO SPLACE DIGIT IN OUTPUT REG 
1256 006732 662708 608260 ADD 6260,R0 pMAKE ASCII 
1257 006736 904737 905204 JSR PC. TTO 160 TYPE IT 
1258 006742 900207 RTS pc s RETURN 
1259 . 
— 7AIS ROUTINE TYPES THE CYL, TRKGAXX, XX 
1261 
1262 006744 413737 612723 012614 CYLTKs wMOVe FMTOPBO13,LOCTRK TRACK ADDRESS 
1263 ©06752 0613737 612724 012616 MOV FMTOPBe12,LOCCYL  ;CYLINDER ADDRESS 
1264 006760 604537 605166 CYLTRKs JSR RS, TYPOUT 160 TYPE CYL, TRKe 
1265 606764 612046 MHCYTK 
1266 006766 084737 606774 J8R PC, TCYLTK 9GO CONVERT AND TYPE CYLOTRK 
1267 006772 900267 RTS pc SRETURN TO ER HANOLER 
1268 
1269 pTHIS ROUTINE ASSEMBLES & TYPES THE FAILING CYL & TRK ADRS 
1278 
1271 006774 604737 0606444 TCYLTKs JSR PCs BINDEC 960 CONVERT BIN TO DEC 
1272 ©80700@ 684537 005166 JSR RS, TYPOUT sTYPE FAILING CYL, TREK 
1273 007004 610741 MCYUTK pADRS OF MESSAGE WITH FAILING CYLeTRK 
1274 007006 0960207 RTs pc sRETURN 
1275 
+s 9THIS ROUTINE TYPES TWO SPACES 
i 
1278 007010 004537 605166 TSPACES JSR RS, TyPOUT 160 TYPE TwO SPACES 
1279 087014 607564 MSPACE 
1288 087016 690207 RTS pc sRETURN 
1281 
—* 7u16 ROUTINE TYPES OUT DECIMAL e IW R3 
1286 
1264 0607020 0612701 #2809004 DECTYPs MOV 64,R3 sSET UP DIGIT COUNT 
1285 007024 906163 WXDDg = =6ROL R3 sSET UP DIGIT 
1286 007026 606103 ROL R3 
1287 007038 006103 ROL R} 
1288 0807032 006103 ROL R3 
1289 007034 006103 ROL Ry 
1298 06807036 610300 MOV R3,RO sSET UP TYPE REG 
1291 0070468 686063 ROR RI sGAVE CARRY 
292 007042 042700 177760 BIC 6177760,R0 sGET RID OF JUNK 
1293 0807046 662708 666260 AOD 0260,R0 pMAKE ASCII 
1294 0807052 0604737 #85204 JSR PC, TTO 160 TYPE IT 
1295 607056 6905301 DEC AY s8EE IF LAST OIGIT 
1296 0607068 001361 BNE WxXDD sBRAWCH IF NOT 
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1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1306 
1309 
1310 
1311 
41312 
1313 
1314 
1315 
1316 
4317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
4327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
13508 


007062 


007064 
007072 
007100 
007106 
007114 
007122 
007130 
007136 
ce7144 
007146 


007150 
007154 
007156 
007162 
007166 
007172 
007176 
007202 
007206 
007212 
007216 
007222 
007226 
007232 
007236 
007242 
007246 
007252 
007256 
007262 
087266 


0072708 
007274 
007300 
007304 
007310 
007314 
007320 


007322 
007326 


SUPPORT SUBROUTINES 


000207 


013737 
013737 
013737 
013737 
017737 
013737 
062737 
017737 
000207 
668000 


004537 
012143 
013703 
004737 
004737 
013703 
004737 
004737 
013703 
004737 
004737 
613703 
004737 
604797 
013763 
004737 
004737 
013703 
004737 
004737 
000207 


013703 
013703 
013704 
013708 
813700 
013702 
000207 


012732 
012734 
012736 
012740 
174046 
013070 
oeeeie 
BECHR4E 


012642 
884664 


012654 
012656 
012702 
012704 
012642 
007146 
007146 
012682 


"RPO4 FORMATTTER PROGRAM® 


SETREGs 


TYPALLS 


MACY31 27(657) 


RTS 


1}JeMARS75 


17951 


sRETURN 


pSETS UP RH REGS FOR THE °RHREG® ROUTINE 


MOV 
MOV 
MOV 
MOV 
MoV 
MOV 
AdD 
MOV 
RTS 
® 


STHIG ROUTINE TYPES OUT THE CS1,CS2,051,ER1,ER2¢ER3 REGISTERS 


JSR 
MREGHD 
MOV 


pTHIG ROUTINE RESTORES ROORG WHEN RETURNING TO THE DRIVER 


NOV 
MOV 
MOV 
MoV 
mov 
MOV 
RTS 


RPERRS, SAVREGO12 sSET UP RHDSI 
RPERRS¢2, SAVREGO14 #SET UP RHERI 
RPERRSO4, SAVREGO 40 #SET UP RHERQ 
RPERRSO6, SAVREGC42 sSET UP RHERD 
OSAVRO4, SAVREG sSET UP RHCSS 
RPADR, IRHCS2 pGET RPO4 BASE ADRS 
010, IRHC§2 pPOINT TO RHCS2 ADRS 
OIRHCE2, SAVREGO10 sGET RHCS2 
pc pRETURN 

sCONTAINS RHCS2 ADRS 


RS, TYPOUT 


SAVREG,R3 
eC, OCTYP 

PC, TSPACE 
SAVREGO10, RI 
PC, OCTYP 

PC, TSEPACE 
GAVREGO12,R3 
Pc, OCTYP 

PC, TEPACE 
GAVREGO14,R3 
oC, OCTYP 

PC, TOPACE 
GAVREGO40,R3 
PC, OCTYP 

PC, TSPACE 
SAVREGO42,R3 
Pc, OCTYP 

PC CRLF 

Pc 


GAVR, RI 
SAVRO2,R3 
BAVRO4G, RE 
SAVRO6, RS 
SAVRO10,RO 
SAVRO12,R2 
pC 


160 TYPE THE 


sGET RNCS1 
sTYPE IT 


pSPACE WX TYPE 


sGET RHCE2 
sTYPE IT 


pSPACE NX TYPE 


sGET RHDS) 
sTYPe If 


sSPACE WX TYPE 


sGET RHERI 
TYPE IT 


sSPACE WX TYPE 


sGET RHER2 
eTYPE If 


sSPACE WX TYPE 


sGET RHERS 
sTYPe it 
s8ET MARGIN 


pRETURN TO ER HANOLER 


sRESTORE RO 
sRESTORE RJ 
pRESTORE RO 
pRESTORE RG 
PRESTORE RO 
pRESTORE RQ 


pRETURN TO ORIVER 


sTHIS ROUTINE TYPES THE ORIVE @, SERIAL NUMBER AND 
pTHE CONTENTS OF THE RHILeRPO4 REGISTERS 


JSR 
JSR 


PC, ORSN 
PC, CYLTK 


160 TYPE DRIVE 6 AND SN 
9GO TYPE CYL, TRKOXXX, XX 





Se — — — — — — — — — — — — — — — —— —— ————— 


MAINDECSII@DERPL©B *RPO4 FORMATTTER PROGRAM®  MACY11 27(657) 13eMAR©75 17551 PAGE 26 


DERPLB, P11 SUPPORT SUBROUTINES 
1351 007332 604737 607150 JSR PC, RHREGS 160 TYPE RH REGS 
7 13532 007336 96006207 RTS pc sCXIT 
1353 
1354 SROUTINE TO CHECK FOR KwileL OR KwileP CLOCKS 
1355 
1356 ©07340 612737 067418 900004 CKCLK: MOV OCKCLK1 , OPERRVEC sSET UP VECTOR FOR P CLK 
1357 007346 0689037 6000006 CLR OSERRVECS2 sNEW PSW 
1358 007352 006777 163162 TST OSLACSR sCHECK FOR Kwyieop 
1359 007356 012737 003104 909104 MOV eCLOCK, 104 sSET UP KwijeP VECTOR 
1360 007364 612737 e80)00 009196 MOV 6300,106 pPSW © PRI 6 
1361 607372 612777 A77777 «363142 MOV 6°14, O06LKCSB #LOAD COUNTER BUFFER 
1362 007400 012777 900138 163132 MOV 0135, O8LKCER sSET CLK © CHT UP 
1363 087406 990423 BR CRCLKY 
1364 007418 0662706 seeee0e4 CRCLKis ADD 04,8? pRESTORE THE STACK POINTER 
1365 007414 0612737 987452 sesee4 mov OCKCLK2, OO ERRVEC pCHANGE ERROR VECTOR 
1366 007422 003777 1780120 1687 oLRXG sLOOK FOR KWii0eL 
9 1367 007426 612737 0863104 #90100 MoV OCLOCK, 100 sGET UP KejyeL VECTOR 
1368 007434 0912737 eee3e08 9009102 MoV ©300,102 sPSW © PRI 6 
1369 007442 612777 600100 470076 mov 0160, 08LKS pSET KWigeL INTERRUPT ENABLE 
1370 007458 990402 OR CKCLKS 
1371 007452 662706 #99004 CRKCLK2¢ ADD 04,87 SRESTORE THE STACK POINTER 
1372 007456 012737 880906 889804 CKCLK3; MOV 06, 60ERRVEC pRESTORE THE ERROR VECTOR 
. oe 007464 09906207 RTS pc 
137 
1375 087466 005615 050122 032060 TITLES ,ASCII <15><12>/RPO4 FORMATTER PROGRAM/<€15><12> 
s 1376 0897474 643068 051117 640515 


1377 607502 052124 651108 eSeede 

1378 007518 047522 661107 946861 

1379 ©807516 @05015 

1360 607320 640515 647111 6425046 eASCIZ /MAINDEC CS 1 DERPLoB/<15><12><12> 
1381 87526 6265603 0630461 642055 

13862 0807534 051108 646128 641055 

1383 007542 906015 0609012 

1304 

1305 @07546 905015 051104 ©53111 MUNITS ,ASCIZ <15><12>/DRIVE 6 / 

1386 007554 020188 ©20043 0008 


— TH 007561 075 esenee MDRVD§ ,ASCIZ. /20/ 
z3ꝛ 007564 920040 YT) MOPACES ,ASC1Z / / | 
1392 007567 077 006477 990012 NOUES! ,ASCIZ /97/<19><12> | 
1393 007574 05018 Bee MCRLFS 4 ASCIZ <15><42 | 
1398 007877 640 042040 044922 NOFFLNS ,ASCIZ. / DRIVE OFFLINE/<15><12> 


1396 007604 042526 047448 0431066 
’ 1397 ©07612 644514 042516 905015 


1398 607620 68 
1399 
1408 0607621 040 051104 653111 MDRNPs ,ASCIZ / DRIVE NOT PRESENT/<15><12> 


1401 007626 620105 047516 920124 

1402 007634 051128 051508 647105 ( 
oe 007642 686524 600012 

4 





MAINDECe] 1 eDERPLeB 


DERPLB,Pi1 


1408 
1406 
1407 
1408 
1409 
14108 
i411 
1412 
1413 
1414 
3415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1484 
1455 
1456 
1457 
1458 


007646 
007654 
007662 
007670 


007673 
007700 
607706 


007713 
007720 


007725 
007732 
007740 
007746 
007754 


007761 
007766 
007774 
010002 


610004 
010012 


010016 
010024 
010032 


010035 
010042 
610050 
010036 
010064 
010072 
010108 


010106 
010114 
010122 
010130 
010136 
010144 
0101582 
010160 


010165 
010172 
010200 
010206 
010214 
010222 
0102308 


SUPPORT SUBROUTINES 


0420408 
047848 
020116 
0080156 


015 
043517 
047515 
020103 
020051 


093117 
020046 
654586 


018 
051108 
0471143 
642523 
646448 
054450 
0245916 


008015 
052101 
644527 
020108 
620062 
051137 
041040 
047615 


044522 
052117 
050122 

000 


051104 
047125 
008615 


008012 
040522 
0425046 
054117 
020078 


020075 
052103 
881108 


006012 
052101 
631040 
082103 
0421137 
847440 
037440 


050137 
047611 
046134 
047111 
042523 
0240408 
052313 
042554 


042526 
040440 
632060 


053111 
040523 
o0e 


0425914 
ooo 


047506 
023040 
043111 


047440 


080117 
020105 
828062 
083117 
020105 
020122 
000040 


051105 
020116 
64,040 
031040 
082163 
033061 
020081 

eee 


042520 
047337 
020114 
020116 
041505 
030450 
024524 


*RPO4 FORMATTTER PROGRAM* 


MSELD? 


MPORMTS 


MORMATS 


MACYS1 27(657) A3eMAR©7S 17851 PAGE 27 


eASCIEZ 


eASCIEZ 


eASCIZ 


eASCIEZ 


eASCIL 


4 DRIVE NOT AN RPO4/€15><12> 


/ DRIVE UNSAFE/<€15><12> 


4 SELECTED/ 


€15>¢€12>¢€12>/PROGRAM MODE (C OR F) & / 


4 @ FORMAT & VERIFY/ 


CHECK ONLY/ 


/ORMAT & VERIFY/ 


€15>¢€12>¢12>/OPERATE IN 22 SECTOR MODE (¥ OR M) P / 


€15>¢12>/OPERATION WILL BE IN 22 SECTOR (16 BIT) nout / 


€15>¢€12>/O0PERATION WILL BE IN 2@ SECTOR (18 BIT) MODE/ 





fq ¢ 


MAINDEC®§ 1 eDERPLoB 


DERPLB, P11 


1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
14708 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1460 
146) 
1462 
1463 
1464 
1465 
1406 
1467 
1468 
1469 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1802 
1503 
1504 
1808 
1506 
1807 
1508 
1509 
1510 
i511 
1512 


010244 
010252 
010260 
610266 


010272 


010277 
010304 
010312 
010320 


010324 
010332 


010334 
010342 
010350 
010356 
010364 


010371 
010376 
010404 
010412 
010420 


010423 
010430 
010436 
010444 
010452 
010454 
010462 
010470 
010476 
010504 
010512 
010520 
010526 


010530 
010536 
010544 
010552 
010560 
010561 
010566 
010574 
010875 
010602 
010610 


SUPPORT SUBROUTINES 


046448 


005015 
052122 
054503 
036513 


030075 


15 
047111 
054503 
036513 


032075 
000070 


037477 
047111 
044514 
054105 
042105 


077 
041501 
044515 
042503 
005015 


042117 


051432 
047111 
026114 
ee004e 


042412 
020107 
026314 
000040 


041460 
w4dases 
044515 
04250) 
005015 


020077 
020133 
0201246 
642108 

eee 


050048 
047122 


O24468 
023517 


024461 
081447 
020051 


040524 
020107 
051124 


042116 
020040 
9511246 


030454 


046131 
020122 
020124 
042105 

eee 


051124 
044614 
054105 
042105 


047105 
042040 
033104 
082123 


082521 
020117 
042522 
052040 
052123 
043516 
006523 


046105 
040504 
052101 
006472 


047448 
005015 
047527 


*RPO4 FORMATTTER PROGRAM® 


MMINCTS 


MCYTKOS 
MMAXCTS 


MCYTKis 


MCLIMTS 


MILINTS 


MBELPS 


MACY11 27(657) A3eMAR©7S 17551 PAGE 26 


eASCIZ 


eASCIZ 
eASCIZ 


eABCIE 


eABCIEZ 


ASCII 


ASCII 


€153¢€12><12>/STARTING CYL, TRKS / 


/80,0/ 
€1S><i2>/ENDING CYL, TRKe / 


48410,187/ 


47? CYLINDER LIMIT EXCEEDED/<15><12> 


/?? TRACK LIMIT EXCEEDED/<15><12> 


47? ENDING DSK ADRS MUST/<15><12> 


/BE EQUAL TO OR GREATER THAN STARTING ADRS/<15><12> 


€152€12><¢42>/SELECT DATA PATTERNS /<€15><12> 


4(@) ZERO°S/<15><12> 


404) ONE°S/<15><142> 
402) WORST CASE /<€152<12><12> 








oo” 
e©e5c»+coe0e5u5svwkieeese£ee8e8ee80e2000e80 @! 


. 8 ®@ 


MAINDEC ©} 1 eDERPLoB 


DERPLB,Pi) 


1513 
i534 
1515 
1516 
1817 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
15308 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1558 
1553 
41552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 


010616 
010624 


010632 
010640 


010646 
010654 
010662 
010670 
010676 


010704 
010712 
010720 
010726 
010734 


010741 
010746 


010752 
010768 
010766 
010774 


010777 
011004 
011012 
0110208 


011023 
011030 
011036 
011044 
011052 
011060 


011065 
011072 
0111008 
011106 
@11114 
011122 


011123 
011130 
011136 
011144 
011152 
011160 
011166 


011172 


SUPPORT SUBROUTINES 


051522 
042523 


053475 
041440 


005015 
052122 
047506 
047440 
053131 


005015 
052122 
044103 
047117 
042526 


005015 
040515 
050115 
008018 


015 
041505 
050115 
005015 


ais 
042514 
05252) 
042524 
042826 
006524 


015 
042514 
051106 
047133 
060125 

666 


015 
051523 
047503 
020114 
040520 
042440 
006015 


0511137 
081503 


081412 
047111 
046522 
020116 
6429105 


051412 
047113 
0415905 
042040 
021440 


043012 
0201246 
042514 

eee 


006012 
040507 


041412 


040524 
0201067 
052103 
051106 
00004) 


040524 
020107 
020113 
044522 

60e 


081117 
0475803 
042524 


044103 
047503 
042824 


046111 
020114 
061531 
047113 
060125 

666 


040515 
020123 
047522 
020123 
054524 


053117 . 


047137 


*RPO4 FORMATTTER PROGRAM® 


MPATDS 


MSrous 


MCYLTKs 


MPCMPTS 


MCCMPTS 


MACY11 27(657) {3eMAR©7S 17851 PAGE 29 


eASCIE 


eASCIZ 


eASCIE 


eASCIEZ 


/BeORST CASE/ 


€152€12><€12>/STARTING FORMAT ON DRIVE 6/ 


€152€12><12>/STARTING CHECK OW DRIVE 6/ 


4000, 00/¢€15><12> 


€15>€12><12>/FORMAT COMPLETE/<15><12> 


€153€12>€12>/CHECK COMPLETE/<15><12> 


€15>€12>€12>/ILLEGAL SUBSYSTEM INTERRUPT /<15><12><32> 


€15>€12><¢12>/ILLEGAL ORIVE INTERRUPT/<15><32><12> 


€152€12>¢€12>/MASSBUS CONTROL BUS PARITY ERROR/<15><12><12> 


€15>€12>¢12>/CONTROL BUS PARITY ERROR/<15><12><12> 








MAINDECe1 1 oDERPLoB 


DERPLO, P31 


1567 
1566 
1569 
1570 
i571 
1572 
1573 
1574 
1575 
1576 
1577 
1576 
1579 
1580 
1561 
1582 
1563 
1564 
1565 
1586 
1507 
1566 
15869 
15908 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
16108 
1631 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 


011200 
011206 
0112134 
011222 
011230 


011231 
011236 
011244 
011252 
011260 
011266 
011274 
011302 


011303 
011310 
011316 
011324 


011332 
011340 
011346 
011354 
011362 
011370 


011372 
011400 
011406 


0113413 
011426 
011426 


011434 
011442 
011450 
011456 
011464 
011472 
011500 
011506 
011514 
011522 
011530 
011536 
011544 
011552 


011556 
011566 
011572 
011600 


SUPPORT SUBROUTINES 


051124 
051525 
052111 
047522 

800 


018 
0425246 
020116 
040440 
053161 
046102 
063111 

000 


18 
052131 
041505 
047522 


005015 
0201064 
044522 
051536 
0511068 
000012 


0050158 
042526 
051117 


01s 
052131 
047822 


00018 
020133 
020122 
043516 
042520 
020115 
051108 
646528 
047520 
047117 
044103 
647516 
043122 
006504 


005018 
042526 
043101 
047522 


046117 
0s004e 
020131 
006522 


005012 
052116 
051106 
O20116 
0446801 
020105 
086565 


051012 
053137 
0428246 
043103 
047822 


042012 
042440 
665015 


042012 
882406 
820108 
066522 


0410408 
051101 
051105 
005012 


052103 
047531 
046537 
047125 
@40514 
051104 
005012 


063127 
044103 
081105 
800012 


040505 
063440 
082440 
020108 
006522 


044522 
081122 
eee 


051127 
081105 
000012 


051531 


044522 
051516 
051108 
060012 


*RPO4 FORMATTTER PROGRAN® 


MERTS 


MACY33 27(657) {3eMAR©7TS 17151 PAGE 38 


eABCIZ 


eASCIE 


eASCIE 


eASCIE 


Aeii 


€15>¢€12><12>/ATTENTION FROM AN UNAVAILABLE ORIVE/<€15><42><12> 


€152€12>¢12>/WRITE CHECK ERROR/<15><142> 


€15>€12><12>/READ OR WRITE UNSAFE ERROR/<15><42> 


€15>€12><12>/0RIVE ERROR/<15><12> 
€15>€12>€12>/WRITE ERROR/<15><12> 


€15><12><¢12>/DISK ERROR TRYING TO PERFORM HEADER COMPARE/<15><12> 


/POSITIONING CHECK NOT PERFORMED/<15><12> 


€15>€12>¢12>/ORIVE UNSAFE ERROR/<1$>¢12> 


oA 





MAINDEC©] 1 oDERPLoB 


DERPLB P11 


1621 
1622 
1623 
1624 
1625 
1626 
1627 
1626 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
16408 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1658 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
16686 
1669 
1670 
1671 
1672 
1673 
1674 


011606 
011614 
011622 
011630 
011636 
011644 
011652 


011656 
011664 
011672 
011700 
011706 
011714 


011716 
011724 
011732 
011748 
011746 
011754 


011762 
011770 


0117741 
011776 


012008 
012006 


0120109 
012016 


012046 
012054 


012057 
012064 


012067 
012074 
012102 


SUPPORT SUBROUTINES 


005015 
054117 
041101 
051501 
0500408 
020131 
006822 


005015 
046161 
041123 
051101 
051105 
800012 


006415 
0535246 
044524 
0201246 
052123 
047128 


051104 
eee 
122 

e0easa 


042122 
806678 


842122 
000075 


051127 
000075 


061127 
000075 


015 
620040 
906678 


052412 
042522 
042514 
041123 
061101 
051105 
080812 


43042 
0464608 
051525 


052111 
047523 


051412 
081103 
042515 
820088 
046965 
006807 


053111 
040510 
840456 
053686 
0271246 
027124 


047123 
0261146 

eve 
041505 

eae 
041012 
S40504 


047507 


041516 
05210) 
@46448 
0513525 
082141 
0475822 


043117 
020108 
082817 
054523 
044040 
000012 
036505 
036523 
051104 
042122 
042101 
642127 


600675 
061126 


047824 


042101 
040524 


042117 


*RPO4 FORMATTTER PROGRAM* 


MERION 


MDRVE 
MASE 
MRDADRE 
MRDURDS 
MWRTADS 
MURTWOS 


mane 
MHCTTKs 


MBDATAS 


MACY11 27(657) {3eMAR©7S 17651 PAGE 34 


eASCIZ 


eASCIEZ 


eABCIZ 


eABCIZ 
eASCIZ 


eASCIZ 


eABCIEZ 


€15><€12>¢€12>/UNCORRECTABLE MASSBUS PARITY ERROR/<15><12> 


€15>¢€12>¢12>/FATAL MASSBUS PARITY ERROR/<15><12> 


€152¢15>¢12>/SOFTWARE TIMEOUT © SYSTEM HUNG/<159><12> 


/DORIVES/ 


/RHASS / 


/RD,ADRO/ 


/RD,WROS/ 


/URT,ADS/ 


/URT,UDS/ 


4 §he/ 
4CYL, TRKS/ 


/SECTORS/ 


€152<12>/BAD DATAS/ 


€15>4€12>/GO0D DATAs/ 
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DERPLB, P11 


1675 
1676 
1677 
1678 
1679 
1680 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
16986 
1699 
1700 
i701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
4741 
41712 
1713 
4714 
1715 
4716 
4717 
1718 
1719 
1720 
1721 
41722 
1723 
1724 
1725 
1726 
1727 
1728 


012132 
012140 


012143 
012160 
0121586 
012164 
012172 
012200 
012206 
012214 
012222 


012226 
012234 
012242 
012250 


012254 
012262 
012278 
012276 
012304 


012307 
012314 
012322 
012330 


012332 
012340 
012346 
012354 
012362 
0123708 
012376 
012404 
012412 


012415 
012422 
012430 
012436 


012444 
012452 


012460 


SUPPORT SUBROUTINES 


00sei5 
826462 


15 
@315H3 
044122 
029846 
020063 
051108 
044122 
020040 
06646) 


026440 
0478246 
020124 
052120 
008018 


O18 
807806 
880066 
88032 


005015 
052133 
043516 
051137 
047131 
946522 
051040 
040515 
45563 


O45 
044322 
051536 
051523 


054105 
042106 


052101 
051012 
800078 
044122 

eo8 


042510 


044122 
020040 
020062 
061504 
044122 
020040 
S20062 
081105 


046922 
053105 
042526 


641505 
047516 
042503 
042814 
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eASCIZ 


€15><12>/RHECIis/ 
€19>¢12>/RHEC28/ 


€15><€12>/ RHCSi RHCS2 RHDSI RHER) RHER2 PHERI/<415><412> 


€15>¢12>/FORMAT TERMINATED /<15><¢12> 


4 © GECTOR WOT ACCEPTABLE/<15><12> 


€15>€12>¢12>/REFORMAT PACK/<15><42> 


€157¢12>¢12>/POSITIONING ERROR DURING FORMAT © REFORMAT PACK/ 


€15>¢€12>/RETRIES UNSUCCESSFUL/ 


SEXPECTED © / 


“READ — 4. 
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DERPLE P11 


1729 
1730 
4731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1788 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
17708 
1771 
1772 
1773 
1774 
1775 
1776 
41777 
1778 
1779 
1780 
1761 
1762 


012474 
012502 
012510 
012516 
012524 
012532 


012540 
012542 
012544 
012546 
012550 
012552 
012554 
012556 
012560 
012562 
012564 
012566 
012570 
012572 
012576 
012576 
012600 
012602 
012604 
012606 
012610 


012614 
012616 
012628 


005015 
0535246 
042510 
041440 
042522 
054417 


@36448 


051412 
0513103 
042101 
040817 
942640 
Bases 


043117 
020105 
051108 
040520 
083122 

eee 
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MHDCMPS ,AGCIZ <15>¢€12>¢12>/SOFTWARE HEADER COMPARE ERROR/<15><12> 


sLISTED BELOW ARE LOCATIONS CONTAINING 
SPARAMETERS USED BY THE FORMAT OPERATION 


USELS 
SOF Sus 


2 
as 
° 
& 
a 


sCONTAING @ OF UNIT SELECTED 

pCONTENTS ARE FOR SOFTWARE OECISIONS 
p°FORMAT & VERIFY® OR "CHECK® MODE INDICATOR 
pENDING CILINDER 

pSTARTING CYLINDER 

pENOING TRACK 

pSTARTING TRACK 

pTOTAL @ OF TRACKS TO BE FORMATTED 

sTOTAL © OF TRACKS COUNTER 

COUNTS TRKS FROM e168 PER CYL 

pCONTAING PATTERN SELECTED 

pPATTERN TO BE WRITTEN OW DISK 

101770 

pUTILITY STORAGE 

MAINTAINS @ OF RETRIES MADE 

pCONTAING LAST BAD SECTOR OW FORMAT 
pCONTALNS BC FOR REMAINING SECTORS OW ERROR 
920 OR 22 SECTOR TRACK SIZE (I WORDS) 

92°S COMPLEMENT OF °wC? 

PPOSITIONING ERROR DURING FORMAT INDICATOR 
920 OR 22 SECTOR MODE INDICATOR 

9@ © 2@ SECTOR MODE 

91°S © 22 SECTOR MODE 

PMAXIMNUM SECTOR ADDRESS (FOR EITHER 20 OR 22 SECTOR 
sPORMAT) 

gTEMP STORAGE FOR TRACK CONVERSION FOR TYPEOUT 
pTEMP STORAGE FOR CYL CONVERSION FOR TYPEOUT 
pNULL (FILLER) CHARACTER COUNT FOR TYPEOUTS 


sTHIG LOCATION CONTAINS CYL ADRS OW HEADER CK 
THIS LOCATION CONTAINS TRKeSEC ADRS ON HEADER CK 


pLEAVE SPACE FOR LEADING ZEROS 


pTTY INPUT BUFFER 
pMOVE POINTER TO END OF BUFFER 
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DERPL®, Pi SUPPORT SUBROUTINES 
1703 012642 eseces SAVREGs 0 pRHCS1 
1704 012644 yeooee e pRHWC 
1705 012646 eeece0 e pRHBA 
1786 012650 eeeeee @ pRHDA 
© 1707 012652 eeecee @ pRHCS2 
1788 012654 eeeeee ⸗ 1 
1709 012686 essces @ pRHERS 
© 1798 012660 eee0ee e pRHAS 
1791 012662 e9eeee @ pRHLA 
1792 012664 eseces Py pRHDB 
© 1793 012666 900000 ry pRHMR 
1794 012670 eeeece e pRHDT 
1795 012672 eeeees rs pRHSW 
@ 1796 012674 eee0cees 8 pRHOF 
1797 012676 e99ces ry pRHCA 
1798 012760 eeeeee @ pRHCC 
©@ 1799 012702 eeeeee ry pRHER2 
1900 012704 seeeses rs pRHERS 
1001 012706 eeeeee @ pRHECS 
© 1002 012710 eeeeee @ pRHEC2 
1003 
1004 
© 1905 
1006 012712 vee FuTDPBs ,BYTE 0 sORIVE NUMBER 
0 1807 #12713 ove ;BYTE @ pOFFSET VALUE OR FMT22,EC1, AND HCE 
1908 012714 Pry »OYTE @ sCOMMAND 
1809 #12715 000 »BYTE @ pPSEL AWD AX7 AND A16 
e 1010 012716 seecee »WORD @ pWORD COUNT (NEG) 
1811 012720 eeevee »WORD 9 pOUFFER ADDRESS 
4012 012722 gee ,8xTE @ pSECTOR ADDRESS 
° 1013 012723 gee ,eYts pTRACK ADORESS 
1814 012724 eeeeee »WORD @ sCYLINDER ADDRESS 
1615 012726 eevee »WORD @ sERROR TABLE POINTER 
e 1616 012730 @e00ee ;WORD 9 pSTATUS@ERROR INDICATOR 
1047 p8IT 35 © 4s ERROR OCCURED 
1618 p8IT 07 © 14 DONE 
e 1819 sBIT 14°46 AND BIT o6°03 
1930 pINDICATE TYPE OF ERROR 
1621 
4022 
€ 1023 
1624 
1025 
€ 1826 
1027 
© seas eSBTTL RMLA/RPO4 DRIVER (REV, 0,9) 
i 
1030 pOCOPYRIGHT (C) 1976 
e 1034 pODIGITAL EQUIPMENT CORP, 
1032 pOMAYBARD, MA 91754 
1033 p@AUTHORS JIM LACEY 
1034 
© 1035 
1636 POSTORAGE FOR RHDS1, RHER1, RHER2, AND RHER3 OW AN ERROR "2° OR *5° 
 ] 
Ce 


a ee 2... ae 4 es 


< 
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DERPLB, P11 RHII/RPO@ DRIVER (REV, ?,9) 

1837 P®RPERRS # KHDSI € 

1638 S®RPEPRS*2 © RHERI 

1839 JeRPERRSe4 & RHER2 

1640 JORPERKS*6 & RHERS a 

1941 

1842 12732 890000 RPEPRSt ,wORD ¢ 

1643 012734 900200 e#ORD @ € 

1644 012736 g@e0000 eWORD 

1645 012740 890000 e#ORD @ 

1646 € 

1847 S@TABLE OF DRIVE ACTIVE INDICATORS (DRVACT#®@ 4YTES) 

1648 p@DRVACTS@ IMPLIES DRIVE IS IDLE 

1649 p@DRVACT>® IMPLIES ORIVE IS ACTIVE #ITH A COMMAND « 

1650 pOORVACTCO IMPLIES DRIVE IS ACTIVE #ITH AN EKKOR RECOVERY OPERATION 

1851 

1652 012742 000 DRVACTS ,B8YTE @ DRIVE @ € 

1653 012743 0ee eSOYTE @ pDRIVE 1 

1654 012744 ove e8YTE @ pDRIVE 2 

1855 #12745 vee eBYTE 6 pORIVE 3 € 

1856 #012746 ave e8YTE @ SORIVE 4 

1657 012747 aoe e8YTE @ sORIVE 5 

1858 012750 eee e8YTE @ SORIVE 6 € 

1959 #12751 eve eSYTE © pORIVE 7 

1860 

1661 s®TABLE OF DRIVE STATUS INDICATORS (ORVSTAS6 BYTES) < 

1862 p@ORVSTAS® IMPLIES ORIVE IS OFFLINE 

1863 P@DRVSTADO IMPLIES DRIVE 18 ONLINE 

1664 P@DRVSTAC@ IMPLIES ORIVE 18 UNSAFE OR NONEXISTENT € 

1865 

1866 #12752 ee0 DRVSTAS ,BYTE © sORIVE @ 

1867 #12753 000 e8YTE @ pORIVE 1 € 

1068 012754 88e »8YTE @ pORIVE 2 

1869 12755 eee e8YTE @ sORIVE 3 

1870 012756 800 eS8YTE @ pORIVE 4 < 

1671 012757 aae e8YTE @ pORIVE 5 

1672 #12760 000 eSYTE © sDRIVE 6 

1873 #012761 ooo e8YTE © pORIVE 7 ¢ 

1874 

1675 p@TABLE OF ORIVE TYPES (ORVTYP#E WORDS) 

1876 p@DRVTYP WILL CONTAIN THE DRIVE TYPE OF ALL ONLINE, OFFLINE, AND € 

1877 p@UNGAFE DRIVES, IF A DRIVE 15 NONEXISTENT ORVTYP @ILL BE ZERO, 

1878 

1879 212762 600000 DRVTYPs ,WORD @ sORIVE @ C 

16890 012764 8090000 e#ORD @ pORIVE 1 

1661 012766 000000 e#ORD @ pORIVE 2 

1962 @12770 900000 eWORD @ sORIVE 3 € 

1863 012772 epeeee e¥ORD @ pORIVE 4 

1964 012774 ee9e0ee e#ORD @ pORIVE 5 

1865 012776 600000 eWORD @ pORIVE 6 < 

sees 013000 eee0ee e#ORD @ pORIVE 7 

166 

1968 P@TRANSFER WAIT FLAG (TRNSWTS1 WORD) € 

1669 pOTHIS 168 A OWE WORD QUEVE, IT WILL CONTAIN THE ADDRESS OF 

169" p@°OPB" OF THE 170 OPERATION, 
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DERPL®, Pi! RHIL/RPOE DRIVER (REV, 0,9) 
1891 € 
1892 013002 eeecee TRNGWTs WORD © 
1693 
1694 p®SEARCH WAIT KEYS (SRCHWT#1 wORD) 
1695 p@THIS I8 A ONE WORD QUEVE THAT WILL CONTAIN A KEY FOR EACH OF 
1696 pOTHE ORIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 170 
1897 REQUEST THAT 18 AT THE TOP OF THEIR REQUEST QUEUE, € 
1698 p@EACH DRIVE 18 ASSIGNED OWE BIT, STARTING AT BIT@® FOR DRIVE @, 
1899 
190@ 013004 pesese SRCHWTs WORD 6 ¢ 
1901 
1902 p@RPO4 DRIVER ACTIVE FLAG (ACTORV®{ BYTE) 
1903 p@ACTORVOO IMPLIES ORIVER 18 INACTIVE « 
sees p@ACTORVD@ IMPLIES DRIVER 18 ACTIVE 
198 
1986 013006 eve ACTORVs ,BYTE 6 J 
1907 
1908 ' p@SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTRe1 BYTE) 
1909 pOACTSTREO IMPLIES SOFTWARE TIMER ROUTINE is INACTIVE « 
ssie pOACTSTRPG IMPLIES SOFTWARE TIMER ROUTINE IS ACTIVE 
1911 
1912 13007 eee ACTSTR: ,BYTE © ( 
1913 
1914 S@UNLOAD FLAG (ULDFLGe8 BYTES) 
1915 p@ULDFLGee IMPLIES NO UNLOAD COMMAND ¢ 
1916 P@ULDFLG>@ IMPLIES UBLOAD COMMAND IN PROGRESS 
1917 p@ULDFLG<@ IMPLIES UNLOAD COMMAND IN WAIT QUEUE ; 
194 
1919 @13010 eee ULDFLGs ,8YTE © sORIVE © 
192@ 13011 eee BYTE @ pORIVE 3 
1921 013012 eve ,SYTE © pORIVE 2 ¢ 
1922 #13033 eae ,OYTE #6 sORIVE 3 
1923 013014 eee ,SYTE @ pDRIVE 4 
1924 @13¢e15 eo0 ,SYTE @ pORIVE § ¢ 
1925 013016 ove ,8YTE @ pORIVE 6 
4026 013017 000 SYTE © pORIVE 7 
i 
1928 p®LOOK AMEAD COUNT (LACNT#S® BYTES) ‘ 
1929 p@LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 
1930 
1931 013020 aoe LACNTS ,BYTE © sORIVE © ( 
1932 13021 eae SYTE @ pORIVE 1 
1933 013022 eve .8YTE @ pORIVE 2 ( 
1934 013023 aoe ,SYTE @ pORIVE 3 
1935 013024 age BYTE @ pORIVE 4 
1936 013025 308 ,SYTE @ pORIVE § Q 
1937 #13026 aoe SYTE 8 pORIVE 6 
+H 013027 fry) ,SYTE @ sORIVE 7 
19 
1940 p@BAVE REGISTERS FLAG (SAVEFG #1 WORD) ( 
1941 pOSAVEFG <@ IMPLIES SAVE THE RH11/RPO4 REGISTERS WHEN THE 
1942 p®OPERATION 36 COMPLETED AS PER (DPBO14), d 
1943 pOSAVEFGe@ IMPLIES SAVE THE RH{1/RPO4 REGISTERS, AS PER 


1944 9@(OPB014), AFTER AN ERROR, 





« 
MAINDEC*LICDERPL©B 7 RPOG FORMATTTER PROGRAM® MACY11 27(657) 130"AR©7S 17551 PAGE 37 < 
J DERPLB, P11 RHI1/RPO4 DRIVER (REV, 0,9) 
1945 q 
J 1946 013030 606060060 SAVEFG: ,wORD @ 
1947 
1948 p@SEEK FLAG (SEEKFGs1 #ORD) q 
- 1949 POSEEKFGeO IMPLIES WHEN THE DISK ADORESS ISN°T IN THE wINUOw 
1980 p@FOR A DATA TRANSFER START A SEARCH COMMAND 
1951 pOSCEKFGCe IMPLIES DATA TRANSFER ILL DO IMPLIED SEEKS, : 
1982 DISREGARD THE wiNDOW 
1953 
p 1954 013032 eeecee SEEKFGs ,wORD ® q 
1955 
1956 pOTIMEOUT TABLE (TIMERSS WORDS) 
1957 p@THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION ( 
1958 
1959 013034 177777 TIMERS ,WORD 1 pORIVE © 
1960 013036 477777 eORD oh pORIVE 3 ( 
1961 013060 4377777 WORD 0 pORIVE 2 
1962 0130462 177777 WORD of pORIVE 3 
1963 013044 4797777 »WORD 4 pORIVE 4 ( 
1964 013046 477777 eWORD of pDRIVE § 
1965 @130$@ 477777 eWORD of pORIVE 6 
1966 013052 177777 WORD of pORIVE 7 { 
1967 
1968 P@DATA TRANSFER UNDERWAY INDICATOR (DTUWS1 WORD) 
1969 pODTUNGS IMPLIES NO DATA TRANSFER UNDERWAY r 
1970 PODTUWSON (WHERE Ne@ TO 7) IMPLIES DATA TRANSFER UNDERWAY OW DRIVE w 
1971 
1972 ©13054 177777 DTUWs WORD of ti 
1973 
1974 p@ATTENTION BITS TABLE (ATABITS® BYTES) 
1975 p®THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 4 
1976 p@ATTENTION BIT 
1977 
1978 013056 ee: ATABITS ,BYTE 1 pDRIVE © c 
1979 013087 002 »8YTE 2 pORIVE 4 
1988 013060 004 ,8YTE 4 pORIVE 2 
1981 013061 010 ,OYTE 10 pORIVE 3 q 
1982 013062 020 »SYTE 20 pORIVE 4 
1983 013063 o4e ,8YTE 40 pORIVE 5 
1964 013064 100 »8YTE 100 sORIVE 6 ( 
1965 013065 200 »8YTE 200 pORIVE 7 
1986 
1987 sORPO4 TO RHi1 "MASS CONTROL BUS PARITY ERRORS® (MCPE) ALLOWED BEFORE q 
1988 s@CALLING IT FATAL (MCPEMXe1 WORD) 
19869 
199@ 013066 seeee3 MCPENXs ,WORD 3 { 
1991 
1992 S@STORAGE FOR RPADR (THE FIRST ADDRESS (776708) OF THE RHI1/RPO4), 
1993 pORPVEC (THE VECTOR ADDRESS (254)), ANO RPVECe2 (THE BR LEVEL (5)), i 
1994 @1307@ 176700 RPADRs ,WORD 176780 
1995 013072 990254 see240 RPVECS ,WORD 254.5032, , 
1996 
1997 p@MAXIMUM NUMBER OF LOOK AHEADS ALLOWED 18 4 (MXLACT#®1 WORD) 
1998 013076 se90e4 MXLACTs ,WORD 4 
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DERPLB,Pil RH11/RPO4 DRIVER (REV, 0,9) 
1999 p@MAXIMUM DELTA DELAY IS 8 SECTORS (MXOLTA®1 ORD) 
2000 013100 901000 MXOLTAs ,WORD 6,964, 
2001 peMINIMUM DELTA DELAY 18 2 SECTORS (MNDLTAs1 #ORD) 
2002 013102 90200 MNOLTAS ,WORD 2064, 
2003 p@MAXIMUM SEARCH FOR 1/0 WINDOW 18 5S SECTORS (MXWNDws] WORD) 
2004 013104 00005 MXWNDWs ,WORD 5§ 
2005 
se P®DEFINITIONS OF THE RH11/RPO4 ADDRESS INDEXES 
ae 
2008 ec0eves RHCS180 SCONTROL AND STATUS REGISTER @1 (URIVE REG, 00) € 
2009 000002 RHwWCe2 sWORD COUNT REGISTER (NOT A DRIVE REG) 
2010 000004 RHBAS4 pUNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
2011 000006 RHDAS6 pOLSIRED SECTOR/TRACK ADDRESS REGISTER (ORIVE REG, #5) € 
2012 000010 RHC82810 CONTROL AND STATUS REGISTER 92 (NOT A ORIVE REG) 
2013 000012 RHD81812 pORIVE STATUS REGISTER (ORIVE REG 01) 
2014 000014 RHERI S44 PERROR REGISTER 61 (DRIVE REG, 62) € 
2015 000016 RHASB816 pATTENTION SUMMARY PSEUDO REGISTER (ORIVE REG, 04) 
2016 000020 RKLAS20 LOOK AHEAD REGISTER (ORIVE REG, 07) 
2017 000022 RHDB822 sOATA BUFFER REGISTER (NOT A ORIVE REG,) € 
2018 000024 RHARS 24 SMAINTAINABILITY REGISTER (ORIVE REG, 03) 
2019 000026 RHDTS26 SORIVE TYPE REGISTER (ORIVE REG, 06) 
202e 000030 RHSNOIB SSERIAL NUMBER REGISTER (ORIVE REG, 10) € 
2021 000032 RHOFS92 OFFSET REGISTER (ORIVE REG, 11) 
2022 000034 RHCASS4 SOESIREO CYLINDER AODRESS REGISTER (DRIVE REG, 12) 
2023 000036 RHCCS36 ICURRENT CYLINDER AODRESS REGISTER (ORIVE REG, 13) € 
2024 000040 RHERZ840 SERROR REGISTER 02 (ORIVE REG, 14) 
2025 000042 RHER} 842 pERROR REGISTER 63 (DRIVE REG, 15) 
2026 000044 RHECI 844 pECC POSITION REGISTER (DRIVE REG, 16) € 
— 000046 RHEC 2846 pECC PATTERN REGISTER (ORIVE REG, 17) 
202 
2029 pORHII/RPOE DRIVER INIT, CODE € 
2030 pOTHIS ROUTINE WILL DETERMINE WHICH RPO4 ORIVES ARE 
2031 p@OAVAILABLE FOR TESTING AND SET THE ORVSTA INDICATOR 
2032 peTO THE PROPER STATE FOR EACH DRIVE, € 
2033 peWOTES THIS ROUTINE CALLS DRVINT 
2034 a 
2035 —RD € 
2036 5 
2037 pe JSR PCoRPINIT 
2038 10 RETURN t 
2039 5 
2040 €13106 013746 1777796 RPINITS MOV @ePS,°( SP) SSAVE PROCESSOR STATUS 
2041 13112 013737 013074 177776 mov RPVEC 2, 00PS SSET PROCESSOR STATUS TO RNGI/RPO@ LEVEL € 
2042 013128 004037 620236 JSR RO, SAVRIS 960 SAVE RieRS 
2043 013124 004737 017774 JSR PC, CLRQUE pCLEAR ALL REQUEST QUEUES 
2044 013130 012701 012732 MoV ORPERRS, Ri gFIRST ADORESS TO BE CLEARED € 
2045 013134 012702 013032 nov @SEEKFG,A2 pLAST ADDRESS TO BE CLEARED : 
2046 013140 905021 18s CUR (Ride sCLEAR 
2047 013142 020102 cup Rie R2 pARE WE DOWE? < 
2048 013144 1013775 BLOS 18 pORANCH IF 8O 
2049 013146 012702 013084 mov eDTUW,R2 pLAST ADORESS 
205@ 013152 012721 477777 26% MOV Orie (Ride pINITIALIZE ¢ 
2051 013156 020102 CMP RieR2 pOONE? 
2052 013168 101774 BLOS a6 pLOOP IF NO 
€ 
3 ¢ 
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20383 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
20708 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2061 
2062 
2063 
2064 
2085 
2006 
2067 
2068 
2069 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
21608 
2101 
2102 
2103 
2104 
2105 
2106 


013162 
013164 
013170 
213176 
013202 
013204 
613206 
013212 
013214 
013220 
013224 
013230 
013234 
013240 
013242 
013246 


013250 
013254 
013260 
013262 
013264 
013272 
013276 
013304 
013312 
013314 
0133206 
013322 
013326 
013330 
013332 
013334 
013340 
013344 
013346 
013352 
0139354 
013360 
013364 
013366 
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005001 
013704 
012764 
004037 
000417 
005281 
042701 
001371 
013703 
012723 
013713 
004037 
012637 
000207 
105061 
800756 


004037 


013470 


013070 
000040 
013250 


177770 
013072 
015260 
013074 
020256 
177776 


012752 


4177777 
012762 
000111 
0109000 
617430 


017036 


012762 
020020 


024020 


000121 
017174 


012752 


177564 
000016 


381 
463 


768 


U 
DRVINTS 


MACY11 27(657) 


Ri 
RPADR, R4 


eB1T9S5,RHCS2(R4) 


R@,ORVINT 

78 

Ri 

e°C7, Ri 

38 

RPVEC, RS 
OTEK, (R3)¢ 
RPVECe2,(R3) 
RO, GETRIS 
(SP)o,00P8 


43 
ORVSTACRY) 
4% 


INIT, ROUTINE 
p@THIG ROUTINE DETERMINES IF A DRIVE EXIST auo IF IT 18 

peAN RPOG, IF IT 18, A "READCIN PRESET® 18 ISSUED AND FuT22 
Jeis SET TO A °4", THEN MOL, DPR, DRY, AND VV ARE CHECKED TO 
p@INSURE THEY ARE ALL OW A "4%, AND DEPENDING OW THEIR STATE, 
s@DRVSTA I6 SET TO THE PROPER CONDITION, 


MoV 
Mov 
Jar 
RETURN 
RETURN2 


JER 
MoV 


@ORVNUM,RI 
RPADR, RE 
RO, ORVINT 


RO, SAVRIS 

Rio RHCE2(R4) 
Ri,R3 

RB 

601, ,ORVSTACRI) 
DRVTYPC(R3) 
€1131,ORPAOR 
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SDRIVE NUMBER WILL BE IW RY 

JFIRST ADORESS OF RH11/RPO4 
pMASSBUS INIT, 

3GO INIT, A DRIVE 


sMOVE TO THE WEXT DRIVE 

sDON°T LET THE DRIVE NUMBER GET TU BIG 
PBRANCH IF MORE DRIVES TO INIT, 

SSETUP THE RH11/RPOS VECTOR 


RESTORE RI-AS 

pRESTORE THE PROCESSOR STATUS 
sBYEoBYE 

#SET THE ORIVE STATUS TO OFFLINE 
960 DO THE NEAT DRIVE 


sORIVE NUMBER TO Rj 

SUNTBUS ADDRESS OF RHI4/RPO4 (RHCS{) 
sCALLED BY A J&R 

pERROR OCCURRED (PARITY) 

SNORMAL RETURN 


SSAVE RiORS 

sSELECT A ORIVE 

sCOPY THE ORIVE HUMBER INTO 

#R3 AND POSITION IT FOR TABLE INDEXING 
SSTART ORIVE STATUS AS HONEXISTENT 
sCLEAR THE DRIVE TYPE INDICATOR 

900 A *ORIVE CLEAR® COMMAND 


OBITI2Z, RHCS2ICRE) PNONEXISTENT DRIVE? 


is 

PC, SET, LE 

68 

RO, RO,RP 
(SP)¢,R5 

RS ,DRVTYPCR3) 
€20020,R5 

28 

024020,R5 

56 


0121-°C8P) 
RO, WRT,RP 


pNOooeBRANCH 

160 SET "IE° WITHOUT A *TRE® 
SLEAVE THIS ROUTIWE 

SREAD THE DRIVE TYPE REG, 


SERROR RETURN ADDRESS 

sPUT DRIVE TYPE IN RS 
pSAVE THE ORIVE TYPE 

$16 IT A SINGLE PORT RPO4T 
sBRANCH IF YES 

#16 IT A OUAL PORT RPO4? 
sBRANCH IF NO 

sD0 A *READeLN PRESET® 
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21¢7 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 


013370 
013376 
013400 
013402 
013404 
013410 
013412 
013414 
013416 
013420 
013426 
013432 
013434 
013436 
013440 
013442 
013444 
013450 
013452 
013460 
013462 
013466 
013470 
013474 


013476 
013502 
013510 
013516 
013522 
0139524 
013530 
013532 
013536 
013540 
013544 
0139546 
013552 
013556 
013560 
013564 
913566 
013574 
013576 


*RPO4 FORMATTTER PROGRAK* 


RHI1/RPOS DRIVER (REV, 0,9) 


012746 
004037 
000032 
013470 
004037 
000012 
013478 
012605 
100011 
116164 
004037 
000014 
013470 
006126 
100412 
005105 
642708 
001004 
412761 
000402 
106061 
0087208 
004037 
000200 


013746 
013737 
412737 
904037 
012002 
0035062 
111201 
105761 
003017 
108763 
001034 
013704 
004037 
000442 
105764 
003004 
052762 
000423 
004037 


010000 
@17174 


017036 


013056 
017036 


167077 
000001 
012752 
020256 


477776 
613074 
000001 
020236 
@eee16 
012782 
013010 


013070 
013250 


012752 
14qde00 
020076 


012752 


177776 
013006 


46% 


58s 
es 
768 
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MOV 
JSP 
RHOF 
78 
JSR 
RHDS1 
76 
MOV 
BPL 
MOVE 
JSR 
RHER) 
78 


eBIT12,¢( SP) sSET FAT2Z281 


RO, "RT RP 

RO,RDO,RP READ RHOSI 

(8P)¢,R5 gAND SAVE IT IN RS 

4g #BRANCH IF ATAS¢? 
ATABIT(R1),RHAS(R4) CLEAR ATTENTION BIT 

RO, RD,RP sFIND OUT whY ATAsy 

(SP)¢ $18 IT UNSAFE? 

68 PBRANCH IF YES 

RS sCHECK MOL, OPR, DRY, AND VV 


O°CCBITIZIBITOSLOITE@7IB1ITe6>, AS 
59 sBRANCH IF MOL, DPR, ORY, OR VV IS CLEAR 
@1,ORVSTACRI) $SET ORIVE STATUS TO OWLINE 


68 

DRVSTACRI) SORIVE STATUS & OFFLINE 
(RO)e SSTEP OVER THE ERROR RETURN 
Re, GETRIS SRESTORE RieRS 

Re pRETURN 


PeREQUEST PREePROCESSORCHANDLES SUBSYSTEM REQUEST 


+ 
p@CALL 


JSR 
PNTADR 
RETURN 
RETURN2 


Mov 
MoV 
MOVe 
JSR 
MoV 
CLR 
MOVB 
T6TS 


RO, OORPOS sCALL THE RPO4 DRIVER 
sAODRESS OF POINTER OF DRIVES PARAMETER BLOCK 
pRETURW HERE IF QUEVE 18 FULL 


sRETURN HERE IF REQUEST 18 IW QUEVE OR THERE 
918 AN ERROR CONDITION 

@ePS,°¢( SP) SGAVE THE CALLING STATUS 

RPVECe2,00ePS sDON°T ALLOW ANY RPO4 INTERRUPTS 

61, ACTORV SET "ACTIVE DRIVER® FLAG 

Re, SAVAIS SSAVE RieoRS 

CRO) O,RZ sPICKUP THE DRIVE PARAMETER BLOCK POINTER 

16(R2) sCLEAR THE STATUS/ERROR INDICATOR 

(R2),R4 SPICKUP THE DRIVE NUMBER 

DORVSTACRA) sCHECK DRIVES STATUS 

16 sQRANCH IF ONLINE 

ULDFPLG( Ry) sUNLOAD COMMAND IN QUEUE? 

36 sBRANCH IF YES 

RPADR, RG sUNZTBUS ADDRESS OF RHCS, 

Re, ORVINT 160 INET, THE ORIVE 

o& sERROR RETURN 

ORVSTACRY) 316 DRIVE STATUS ONLINE? 


is sORAWCH IF YES 

OBITISIBITI4, 16(R2) sERRORe@ORIVE 16 OFFLINE OR NONEXISTENT 
46 160 TO EXIT 

RO, ORVQUE SPUT THIS REQUEST IN QUEVE 
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DERPLB, Pili RHIL/RPO4 DRIVER (REV, 0,9) 
2161 613602 606421 bP 58 PQUEVE 18 FULL 
2162 013604 122762 600103 680002 Cpe #€103,2¢(R2) 18 THIS REG, FOR AN UNLOAD? 
2163 0613612 001003 BNE 28 sO IF #0 
2164 08136134 4123764 &77777 o13¢e10 wove Ge], ULDFLG(P1) SET THE "UNLOAD IN QUEUE" FLAG 
2165 ©13622 108761 612742 26% TSsTB DRVACT( RY) s1S THIS ORIVE ACTIVE? 
2166 013626 601006 BNE 46 s8R IS YES 
2167 013630 004737 613672 JSR PC, OPT sCALL THE OPTIMIZER 
2168 013634 000403 BR 4s 
2169 013636 052762 120000 80016 363 B18 @OBITISIBITI3,16(R2) sSET THE “UNLOAD IN QUEVE* ERROR FLAG 
2170 613644 908720 4645 TST (RO)¢ 
2171 013646 604037 0620256 S68 JSR RO,GETRIS PRESTORE Riers 
2172 013652 405037 06133006 CURB ACTORV sCLEAR "ACTIVE ORIVER® FLAG 
2173 013686 0612637 1977776 MoV (SP)o,00PS SRETURN *°PB* TO USER LEVEL 
2174 013662 000260 RTS RO SRETURW TO CALLER 
2175 013664 604737 0614674 663 JSR pc,ci7 160 HANDLE THE PARITY ERROR 
2176 013670 6900765 BR 46 
2177 
2178 P@OPTIMIZER@CALLED FOR A PARTICULAR DRIVE 
2179 i 
2180 peCALL 
2181 ye MOV ODORVNUM,RI sORIVE NUMBER TO RI 
21862 @ JSR PC,OPT 9SETUP A COMMAND 
2163 Hy 
2164 013672 004037 0620236 Opts JSR RO, SAVRIS SSAVE RieRS 
2165 013676 613746 177796 MOV OePS,°( SP) #SAVE PROC, STATUS 
2186 013702 146137 ©6133086 013004 BICcB ATABIT(RS), SRCHHT sCLEAR "SEARCH WAIT® KEY 
2187 013718 6046737 020152 JSR pC, GETREQ GET "DPB" POINTER OF REQUEST 
2168 613714 605702 767 R2 $18 THERE A REQUEST IN QUEVE? 
2169 013716 001444 BEO 68 sNO@@BRANCH TO EXIT 
2198 013720 109761 0612752 TsTs8 DRVSTACRY) 918 DRIVE ONLINE? 
2191 013724 603006 BGT is PYESeoeBRANCH 
2192 013726 0606737 620174 JSR PC, POPQUE PNO@eREMOVE REQUEST FROM QUEUE 
2193 013732 062762 140808 900016 Bis OBITISIOITI4,16(R2) 9SET ERROR BIT OF STATUS/ERROR IHDICATOR 
2194 013748 000426 BR $8 SBRANCH TO EXIT 
2195 013742 122762 #00188 ee00e2 i183 Cups 6150,2¢R2) $16 THE REQUEST FOR 1/07 
2196 #013758 0682403 BLT 2o sYESooBRANCH 
2197 013752 004737 614252 JSR Ppc,Cié sCALL THE COMMAND INITIATOR 
2196 013756 9004617 BR 58 BRANCH TO EXIT 
2199 013768 605737 033054 288 167 OTuw DATA TRANSFER UNDERWAY? 
220@ #013764 002012 BGE 46 SYESeeGO START A SEARCH 
2221 013766 0606737 613032 TST SEEKFG 900 IMPLIED SEEKS? 
2202 013772 190404 eal 36 sYESeoeoeBRANCH 
2283 013774 604037 0619122 JSR RO,LA pNOeeDO LOOK AHEAD 
2204 014000 900406 BR $6 sRETURM HERE OW A PARITY ERROR 
2205 014002 900403 BR 46 960 START A SEARCH 
2206 014004 004737 914036 36s J&R pc.Clia #cTART A DATA TRANSFER 
2227 014010 000402 BA $8 
2208 014012 004737 014144 464 J6R PC.Ci3 sSTART? A SEARCH 
2209 @14016 012637 177776 585 mov (SP)¢,00P5 sRESTORE PROC, STATUS 
221@ 014022 6646037 620256 J6R RO,GETRIS PRESTORE RieRS 
2211 014026 600207 RTS PC 
2212 014030 004737 617430 683 JSR PC, SET IE SET "IE" WITHOUT A *TRE® 
aod 014034 900770 BR 58 sEXIT THE ROUTINE 
i 


XY 
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DERPLE, PII 


2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
22308 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
22408 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2246 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 


014036 
014042 
014046 
014058 
014054 
014060 
014064 
014070 
014072 
014074 
014076 
014162 
014104 
014106 
014110 
0141314 
014116 
014120 
014124 
014130 
014132 
014134 
014140 
014144 
014150 
14154 
014160 
014164 
014166 
014170 
014174 
014200 
014202 
014206 
014210 
014216 
014222 
014224 
014226 
014232 
014236 
014240 
014242 


*RPO4 FORMATTTER PROGRAM" 


RHI1/RPO4 DRIVER (REV, 0,9) 


009000 
014674 
456137 


020174 
013002 


013070 
eseeie 
000004 
e0eb02 


O17176 


017174 


#86002 
0171746 


013054 
014630 
013070 
oeeeie 
000012 
017474 


oeeeie 
013104 
eeer2s6 
000011 900001 
017174 


000131 
017174 
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s@COMMAND INITIATOR 


MOV 
MOV 
JSR 


CORVNUM,RI 
eOPb,R2 
PC,CI? 


PCs POPQUE SREMOVE REQUEST FROM “DRIVES HAIT® QUEUE 
R2, TRNGWT sPUT REQ, IN TRANSFER WAIT QUEUE 
R2,R3 30P8 ADDRESS TO RZ 
RPADR, RE sRHC61 ADORESS 
Rie RHCE2(R4) SSELECT ORIVE . 
04,R3 SDESIRED WORD COUNT 
62,4 sRHWC ADDRESS 
CRIDO, CREDO sLOAD wORD COUNT 
CREDO, CREDO SLOAO BUFFER ADDRESS 
(R3)0, °C SP) sLOAD SECTOR AND TRACK 
RO, WRT, RP pCALL THE LOADC WRITE) ROUTINE 
sINOEX OF REGIGTER TO LOAD 
SERROR RETURN ADDRESS 
(R3)o,°C SP) SLOAD CYLINDER ADORESS 
RBo ORT, RP 
2(R2),°C SP) SLOAD *"COMMANDOGO", "AXL7EA10"%, AND *PSEL® 
RO, WRT, RP 
— SSET “DATA TRANSFER UNDERWAY® 
RPADR, RG sRHCS1 ADORESS 
Rao RHCS2( RE) sSELECT ORIVE 
12(R2).e( SP) SDESIRED CYLINDER ADDRESS 
RGe GAT, RP 
16(R2),R3 sPICKUP SECTOR ADDRESS 
AXenNDe, RR pOACKUP BY MAX, SEARCH FOR 1/0 wInDOW 
is 
022,583 
R3,°( SP) sCOMBINE THE ADJUSTED SECTOR WITH 
410R2)0108P) sTHE DESIRED TRACK 
RO, ORT, RP sLOAD DESIRED TRACK & SECTOR 
0131,°eC SP) sSTART A SEARCH 
RO, WRT, RP 
ATABIT(R1), SRCHNT 9SET “SEARCH WAIT® KEY 


13eMAR©75 17851 


PAGE 42 


SORIVE NUMBER 
sADDRESS OF DPB 


pCi?s Cli,C13, OR Cle 


PWHERES 

sCLiSDATA TRANSFER 

sCIQSSEARCH REQUESTED BY DATA XFEK 
sCl4eNOT OATA TRANSFER 
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2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2261 
22862 
2263 
2204 
22865 
2286 
2207 
2208 
2269 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
23e9 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 


014250 
014252 
014256 
014262 
014266 
014272 
014274 
014300 
014304 
014306 
014310 
014312 
014316 
014320 
014324 
014330 
014332 
014334 
014336 
014342 
014344 
014350 
014352 
014354 
014360 
014364 
014366 
0143708 
014372 
014376 
014400 
014404 
014406 
014412 
014414 
014422 
014426 
014434 
014436 
014442 
014444 
014446 
014450 
014454 
014456 
014462 
014464 
014466 
014474 
014500 
014502 
014504 
014506 
014512 


*RPO4 FORMATTTER PROGRAM* 


RHI1/RPO4 DRIVER (REV, 8,9) 


000567 
013704 
010164 
116203 
122703 
001007 
016246 
004037 
000006 
014674 
000403 
422703 
001007 
016246 
004037 
000034 
014674 
080546 
4122703 
00103) 
004037 
000032 
014674 
116216 
064037 
000032 
014674 
000530 
12270) 
001525 
122763 
001522 
422703 
001016 
112761 
108061 
112761 
010346 
004037 
000000 
014674 
000207 
122703 
001014 
004037 
800232 
014674 
116266 
004037 
000032 
014674 
000436 
122703 
001023 


013070 
0000i10 
000002 
000131 


000010 
017174 


006012 
017174 


000115 
017036 


000001 
017174 


000107 
000137 
000103 
000001 
012752 
000001 


017174 


000143 
017036 


000001 
017174 


012742 
013010 


000001 


Ci4s 
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cis 

RPADR, RG sRHCS1 ADDRESS 

Rie RHCS2(R4) SELECT ORIVE 

2(R2),R3 sPICKUP THE REQUESTED COMMAND 

0131,R3 318 IT A SEARCH COMMAND? 

16 BRANCH IF NO 

10(R2),°eC SP) sLOAD DESIREO TRACK & SECTOR 

RO, HRT, RP 

28 160 LOAD CYLINDER 

6105,R3 3186 IT A SEEK COMMAND 

38 SBRANCH IF WO 

12(R2)-°eC(SP) LOAD DESIRED CYLINDER 

RO, #RT,RP 

cre 

6115,R3 318 IT AN "OFFSEET® COMMAND? 

48 s8R IF WO 

RO,RD,RP MERGE THE OFFSET VALUE INTO RHOF 
sBUT DON*T CHANGE THE UPPER 

1¢R2).C8P) IBITE WHEN LOADING THE 

RO, ¥RT,RP pREGISTER (RHOF) 

clé 160 START THE COMMAND 

0107,R3 918 IT A *RECALIBRATE*® COMMAND? 

c16é sBRANCH IF YES 

@117,R3 916 IT A RETURN TO CENTER? 

Cire pBRANCH IF YES 

#1063,R3 916 IT AN "UNLOAD® COMMAND? 

58 pBRANCH IF WO 

61 ,ORVACTC(R1I) pSET THE ORIVE ACTIVE INDICATOR 

DRVSTACRi) SPUT DRIVE STATUS TO OFFLINE 

@1,ULDFLG(R1) s8ET "UNLOAD IN PROGRESS* FLAG 

R3,°C( SP) START THE "“UNLOAD® COMMAND 

RO, WRT, RP 

pc sRETURN TO USER 

0143,R3 918 IT A "SET FORMAT® COMMAND? 

68 sBRANCH IF NO 

RO, RD, RP SREAD THE OF FSET REGISTER 

1€R2),1(8P) sCOMBINE °F™T22°,"EC1", AND *HCI® 

RO, WRT RP pLOAD *FMT22", *ECI", AMD/OR "HCI", 

126 

0141,R3 916 IT A "GET REGISTER® COMMAND? 

106 sBRANCH IF WO 


‘ 
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2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
23708 
2371 
2372 
2373 
2374 
2375 
2376 


014514 


014820 
014526 
014532 
014536 
014540 
014542 
014544 
01455e 
014552 
01456e 
014562 
014566 
014570 
014872 
014576 
014600 
014602 
014606 
014614 
014620 
014622 
014626 
014630 
014632 
014640 
014642 
014650 
014682 
0146546 
014660 
014602 
014664 
014666 
014672 
014674 
014702 
014706 
014732 
014716 
014720 
014722 
014726 
014732 
0146736 
014742 
314744 
014750 
014756 
014760 
014764 
0147708 
0146772 


*RPO4 FORMATTTER PROGRAM® 


RH11/RPO4 DRIVER (REV, 0,9) 


116237 
116205 
004037 
000000 
014674 
012623 
023708 
001414 
062737 
O00764 
422703 
001405 
010346 
004037 
oevvee 
014674 
004737 
082762 
009737 
190082 
004737 
000207 
006301 
012763 


000011 
017036 


017176 


020174 
000200 
013038 


017336 


001750 
000001 


017176 


012742 


104000 
017336 
000111 
0173746 


020086 
013010 
012742 
013086 


013002 
4799797 


620236 
013070 


000016 


013034 
012742 


768 


CIVAs 
Civ 
Ci7Bs 
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SPOINTS TO 1ST ADORESS OF #HERE 
sTO PUT THE REGISTER(S) 


1@(R2),98 pINIT, THE INDEX FOR THE FIRST REG, 
110R2),R5 SINCEX OF LAST REG, TO “OVE 
RO,RO,RP sREAD RPO4 REGISTER 

sIMDEX OF REG, TO READ 

(SP)o, (RZ) sGET THE CONTENTS OF PHIL /RPYS REG, 
96,R5 sLAST REG, SEEN READ? 
126 sGET OUT IF Yes 
62.96 pINCREASE THE INDEX BY 2 
as sLOOPeeMORE TO READ 
6145,R3 918 IT A "SELECT ORIVE® COMMAND? 
128 SBRAWCH IF YES 
R3,°( SP) sLOAD THE COMMAND 
Re, WRT, RP 
PC, POPOGUE PREMOVE REG, FROM QUEUE 
OB1T07,16¢(R2) SET THE “DOWE® BIT 
SAVEFG PSAVE THE RHLI/RPOE REGISTERS? 

138 sORANCH IF NO 
PC, SVRHI1 SYESeeGO SAVE THE REGISTERS 
4 PRETURW TO USER 

4 
+ aceite: s8ET A OWE SECOND TIMER 

i 
61, ORVACTC(RI) s6ET THE DRIVE ACTIVE 
Pc pRETURN TO THE USER 
R3,°C SP) #LOAD THE COMMAND 
RO, 4RT_RP 
crs 
ORVACT(R4) p18 THE ORIVE ACTIVE? 
cive pORANCH IF WO 
OOLTISIOITI1,16¢R2) pSET "PARITY® ERROR LHOICATOR 
PCe SVRHI1 160 SAVE THE RHLI/RPOe REGISTERS 
0111,°eCSP) 300 A "DRIVE CLEAR® 
Re, eRT,RP 
PC, EmPTYO sEMPTY THE QUEUE 
ULDFLG(R4) sCLEAR THE UNLOAD IN QUEVE FLAG 
DAVACT(R4) pORIVE 18 LOLE 
Ri, OTUs otf THIS ORIVE HAD AN 1/0 REQUEST 
ag pIM PROGRESS CLEAR ALL OF THE FLAGS 
TRNSeT 
6e4,0TUe 
pc 
RO, SAVRiIS sSAVE RieRS 
RPADA, RE sPICKUP THE ADDRESS OF THE FIRST REGISTER 
ai 
R3 


45 
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2377 
2378 
2379 
2380 
2301 
2362 
2363 
2364 
2305 
2366 
2367 
23068 
2369 
2398 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
24082 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2437 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 


014774 
015000 
015002 
015006 
015012 
015014 
015020 
015024 
015032 
019040 
015046 
019050 
019052 
015056 
019062 
0150646 
015072 
015076 
015102 
015118 
015114 
015120 


015122 
015126 
015132 
015136 
0151340 
015142 


015146 
015150 
015154 
015162 
015164 
015170 
015172 
015174 
015176 
015204 
015210 
015212 
015214 
015216 


"RPO4 FORMATTTER PROGRAM® 


RHLI/RPO4 DRIVER (REV, 0,9) 


109763 
001421 
013702 
020137 
001402 
004737 
004737 
082762 
012763 
108061 
105061 
005201 
002705 
042701 
001344 
012937 
009037 
00137 
012764 
004737 
004037 
000207 


013704 


012742 


020152 
017396 
102000 
477797 
012742 
013010 


000002 
177770 


47797979 
013802 
0177746 
ee0nde 
017430 
020286 


013070 
o00010 
017036 


060340 
017036 


013076 


177776 


iss 78760 
BEG 
mov 
CMP 
BEG 
J8k 

28% JSR 
B18 
nov 
CLRB 

348 CLAS 
rnc 
ADO 
BIC 
Ove 
mov 
CLR 
JSR 
mov 
JSR 
JSR 
RTs 


MACYS 27(657) 


DRVACT(RI) 
36 
TRNSUT,R2 
Ri ,OTUs 
26 

PC. GETREQ 
PC, SVRHG4 


{BeMAR©7TS 17551 PAGE 45 


sDRIVE ACTIVE? 

SBRANCH IF *O 

SGOT THE "TRANGFER BAIT" QUEUE 

pO10 THIS URIVE RAVE AW 1/0 IN PRUGRESS? 
sORANCH IF YES 

sGET THE OPS POINTER 

SSAVE RH{L/RPO4 REGISTERS 


OBLITISIBITIC,16O(R2) FEET “NON@CLEARABLE PARITY" ERROR LHDICATOR 


Oo), TIMER(R3) 
ORVACT(RA) 
ULDPLG(R1) 


6e},DTUW 
TRNSuT 
PC eCLROUE 


s8T0P THE TIMER 

sSET *DAIVE ACTIVE*® TO IDLE 
SCLEAR UNLOAO FLAG 

sMOVE TO THE WEXT ORIVE 


sBRANCH IF MORE DRIVES 

SNO DATA TRANSFERS UNDERWAY 
sCLEAR THE “TRANSFER SAIT® QUEVE 
sCLEAR ALL OF THE REQUEST QUEUES 


OBITOS,RHCSE2(R4) FDO A MASSBUS INIT, 


PC SET, IE 
RO, GETRIS 
pc 


S®LOOK AWEAD ROUTINE 


CORVNUM, RI 
o0PB,R2 
RO,LA 


RPAOR, R4 
Ri, RUCE2(RE) 
RO, RD, RP 


(SP)¢032CR2) 


a8 
LACNTCRS) 


SST *1E* alTHOUT *TRE® 
SRESTORE THE REGISTERS 
sRETURN 


sORIVE NUMBER 

sPOINT TO OPS 

160 CHECK THE wINDOW 
pERROR RETURA 

pSTART A SEARCH 

sSTART A DATA TRANSFER 


sGET RNCG1°S ADDRESS 
sSELECT DRIVE 
sREAD CURRENT CYLINDER 


SERROR RETURN ADDRESS 

51S CURRENT CYLINDERSDESIRED 
sCYLIMOER? 

sEXIT IF HO 

SINCREMENT THE LOOK AHEAD Count 


LACNT(R1)/MXLACT pEXCEED MAX? 


(SP)¢,R3 
ia 


sORANCH IF YES 

sGET DESIRED SECTOR ADORESS AND 
SMULT, BY 64eeALIGN WITH 

sLOOK ANEAD REGISTER 


SPRIORITY LEVEL °7° 
pREAD LOOK AHEAD REGISTER 


SCALCULATE THE DELTA 





MAINDEC ©} 1 eDERPLoB 


DERPLB,PI1 


2431 
2432 
2433 
2434 
2435 
2436 
2437 
2436 
2439 
24408 
24401 
2442 
2443 
24464 
2465 
2446 
2467 
2448 
2449 
2458 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
24808 
2461 
2462 
2463 
2404 


015220 
015226 
015230 
015232 
015236 
015240 
015244 
015246 
015250 
019252 
015256 


015266 
015266 
015272 
015276 
015302 
015304 
015310 
015332 
015316 
015322 
015326 


015330 
015334 
015342 
015344 
015352 
015354 
015360 
019364 
015372 
015376 
015402 
0154046 
015406 
015410 
015412 
015416 
015420 
015424 
015430 
015432 
015440 
015444 
015450 
613484 


*RPO4 FORMATTTER PROGRAM® 


RHIIL/RPOS DRIVER (REV, @,9) 


062703 
023703 
002406 
023703 
002003 
105061 
008720 
bestas 
ei 
004737 
000268 


412737 
004037 
0137046 
013703 
@02403 
004737 
000402 
004737 
004037 
108037 
000002 


014676 


000001 613006 
028236 
013070 
013086 


015330 


012742 
4177777 «6013084 
1779777 913034 


013002 - 
013002' 

000200 seeess 
000010 

017036 


017336 
013672 


100100 900016 
020066 
017336 
040133 


268 
368 
age 


MACYS1 27(057) 


AOD 
CMP 
BLT 
cup 
OGE 
CLRB 
téT 
767 
RTS 
JSR 
até 


L3eMARe7TS 17551 PAGE 46 
0422 ,064,>,R3 MAKE THE DELTA POSITIVE 
MXDLTA,R3 sCHECK THE DELTA TO SEE 
3 If IT 16 wITHIN THE 
MNDLTA,R3 PWINDOGeee{F YES, ZERO 
38 THE LOOK AHEAD COuNT 
LACWTC( RI) pAND TAKE THE 1/0 EXIT 
(RO)o 
(RO) PADJUST THE RETURN ADDRESS 
RO 
Ppc.ci? PROCESS THE ERROR 
Re TAKE ERROR RETURN 


PSINTERRUPT SERVICE ROUTINE 


61, ACTORY 
RO, SAVRIS 
RPADR, RE 


RO, GETRIS 
ACTORV 


ROUTINE 


DRVACTC(RI) 
@e4,DTUN 


Ri 
@o1,TIMERC(R,) 
Ri 

TRHSWT,RZ 
TRNSUT 
6B1T07,16¢(R2) 


Rie RHCS2( RE) 
RO,RD,RP 


(8P)¢ 
26 
GAVEFG 


16 
PC, SVRHG 
PC, OPT 


98ET "ACTIVE URIVER® FLAG 

SAVE RISRS 

pADDRESS OF RHSECSEi 

GET "DATA TRANSFER UNDERWAY® INDICATOR 
gBRANCH IF NO DATA TRANSFER UNDERAAY 
sCALL TRANSFER DONE 

pExIT 

ICALL SPECIAL CONDITIONS 

PRESTORE RiORS 

CLEAR "ACTIVE ORIVER® FLAG 

sRETURN 


SSET ORIVE ACTIVE INDICATOR TO IDLE 
sNO DATA TRANSFERS UNDERWAY 


sCANCEL TIMEOUT 


sGET "DPB" ADORESS FROM THE 
STRANSFER WAIT QUEVEe*CLEAR QUEVE 
s8ET DONE 

sSELECT THE ORIVE 

STRANSFER ECRAROR( TRES{)? 


sBR IF YES 

pSAVE THE RH41/RPO4 REGISTERS? 
sORANCH IF NO 

PYESooSAVE THE REGISTERS 

sCALL OPTIMIZER 

sSPECIAL CONDITION (ENTRY 62) 


B02 
O83T191B1T96,16(R2) »SET DATA ERROR FLAG 


PC, EMPTYG 
PC, SVRHIs 
040131-CR4) 
6c2 


p®SPECTAL CONDITION ROUTINE 


pEMPTY THE "ORIVES WAIT® QUEUE 
OSAVE THE RHI1/RPO4 REGISTERS 
sTSSUE A "DRIVE CLEAR® 
SSPECIAL CONDITION (ENTRY #2) 





MAINDECe1 1 oDERPLOB 


DERPLB,Pi1 


RHI1/RPO4 ORIVER (REV, 0,9) 


*RPO4 FORMATTTER PROGRAM® 


2465 
2466 
2487 
2466 
2469 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
25128 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 





015456 
015460 
015464 
015470 
015472 
0154674 
015476 
0155¢0 
015504 
015510 
015514 
015520 
015524 
015826 
015532 
015536 
015540 
015544 
015546 
015550 
015554 
019556 
015560 
015564 
015566 
015572 
015576 
0156008 
015602 
015604 
015610 
015612 
015614 
015616 
015620 
015622 
015624 
015626 
015632 
015634 
015636 
015640 
015642 
015644 
015646 
015650 
015652 
015656 
015660 
015662 
015664 
015670 
015672 


005001 
012702 
105761 
002016 
005201 
106302 
103372 
013746 
013746 
004737 
012637 
012637 
000408 
010164 
116408 
100413 
012703 
005301 
002743 
105764 
001373 
104001 
004737 
000207 
012701 
116403 
001011 
695361 
603373 
004037 
000000 
014760 
106126 
100358 
800207 
005046 
110316 
012703 
005001 
030316 
001008 
005201 
106303 
001373 
008726 
000207 
023701 
001002 
005726 
000622 
105761 
003030 
105761 


000001 
012782 


eoeele 
eeeee! 
0008108 
012742 
617430 


017836 


012752 
013010 


MACYS1 27(657) 


Ri 
@1,R2 
DRVSTACR4) 


SEEKFG,e( SP) 
SAVEFG, ©( SP) 
PC, RPINIT 


(8P)¢,6AVEFG 
(8P)¢,S5EEKFG 


sci 

Ri, RHCS2( RE) 
1CR4),RS 

8C2 


6c 
DRVACT(Ri) 
18 

i 

PC, StT, TE 
pc 


03,81 
RHAB(R4),R3 
28 

Ri 

is 

RO, RO, RP 


(SP) 


To 
ORVSTACRY) 
6ceé 


ULDFLG(RA4) 
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sSTART WITH DRIVE @ 


pNONEXISTENT? 
pNOeBRANCH 

SYESeeMOVE TO THE NEAT DRIVE 
7MORE ORIVES? 
pYESeeBRANCH 

sSAVE THE "SEEK FLAG* 
GAVE THE "SAVE FLAG* 
9GO INIT, THE SUBSYSTEM 
PRESTORE THE "GAVE FLAG*® 
pRESTORE THE "SEEK FLAG* 
gTAKE ERROR EXIT 

SSELECT DRIVE 

p18 "8C°si? 

#BRANCH IF YES 

900 EIGHT DRIVES 

sNEXT DRIVE 

pBRANCH IF OUT OF ORIVES 
916 THIS ORIVE IOLE? 
sBRANCH IF NO 

pREPORT THE ERROR 

960 SET INTERRUPT ENABLE 


pREAD RWHAS UP TO THREE TIMES 
pREAD "RHAS* 

pBRANCH IF ANY ATA BITS @ 4 
sCOUNT THIS READ 

sLOOP IF MORE READS ALLOWED 

pREAD COATROL AND STATUS REGISTER 


s18 "IE"s1? 

sNOceeTAKE ERROR EXIT 
sYESeeRETURN 

pPROCESS ALL DRIVES THAT HAVE 
pAN ®"ATA*® 84 


sATASi? 
sYESeoeBRANCH 
s4OVE TO THE WEXT DRIVE 


p8RANCH IF MORE TO CHECK? 

SCLEAN OFF THE STACK 

sRETURN TO USER 

918 THIS DRIVE SETUP FOR 1/07 
pNOeoeBRANCH 

PYEGeeoCLEAN OFF THE STACK (RHAS) 
pBRANCH TO "TRANSFER DONE® 

sCHECK THE DRIVE STATUS 

pBRANCH IF OWLINE 

SUNLOAD IN PROGRESS? 





MAINDEC©11 eDERPLeB 


DERPLB,P1i1 


2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
: 2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2560 
2581 
2562 
2563 
2504 
2565 
2586 
2567 
25868 
2569 
2590 
2591 
2592 


015676 
0157008 
015704 
015710 


015714 
015720 
@15722 
015730 
015732 
015736 
015740 


015744 
#15746 
015750 
015782 
015754 
015762 
015764 
015770 
015774 
016000 
016004 
016006 
016010 
016012 
@16014 
016016 
016022 
016024 
016030 
016032 
016034 
016036 
016042 
016046 
016052 
016054 
016056 
016060 
016062 
016070 
016072 
016076 
016100 
016102 
616104 
016106 
016110 
016116 
016122 
016126 
#16134 


"RPO4 FORMATTTER PROGRAN* 


RHI1/RPO4 DRIVER (REV, 0,9) 


003420 
004737 
004737 
004737 


195761 
O03411 
032737 
001565 
013705 
000447 
004737 


011605 
104005 
000733 
006301 
012761 
006201 
004737 
010364 
010164 
004037 
000012 
016224 
011605 
006126 
100115 
105761 
001522 
004037 
000014 
016224 
012608 
004737 
012746 
004037 
000000 
016224 
006105 
100404 
052762 
000443 
004037 
000012 
016224 
011605 
006126 
100013 
112763 
004737 
010364 
052762 
000421 


020152 
017336 
016366 
012752 
O40008 8612732 
012734 


016366 


477777 913034 


020152 
000016 


eoee8ie 
017036 


012742 
017036 


017336 
@00111 
017174 


100240 
017036 


000016 


477777 
017336 
000016 
110000 600016 


012752 


MACYI! 


BLE 
JSR 
JSR 
JSR 


TSTB 
BLE 
BIT 


27(657) 


2s 

PC, GETREG 
PC, SVRHI4 
PC,SC1i2 


DRVSTACR}) 
38 


OBITI4,RPERRS 
scii 
RPERRS#2,P5 
SCOA 

PC,.SC1i12 


(SP),RS 
5 
803 


Ri 
@ei,TIMER(R1) 
Ri 

PC, GETREG 
R3,RHAS(R4) 
Rie RHCS&2( Re) 
RO, RD,RP 


(SP),RS 
(SP)e 

&¢c9 
ORVACT( RY) 
&Cie 
RO@,RD,RP 


(SP)o,RS 

PC, SVRHIi4 
0111,°CSP) 
RO, WRT,RP 


is 
OBITISIBITS7IBITES,16(R2) 
sc? 


13°¢%4ARe75 
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PBRANCH IP NO 

GET DPB PUINTER 

SSAVE THE RALI/SRRPOE REGISTERS 

SAVE RHDS1. PHERL, RHERZ, AND RHEFY 
ALSO 00 A URIVE INIT (ORVINI) 

1010 DRIVE Cu4E ONLINE? 

pNOeeeBRANCH 

1*AS THERE AN ERROR? 

§NO ee BRANCH 

sYES e@ PICKUP RHEKY AND 

160 PROCESS THE ERROR 

SSAVE RHOS{, RRER{, RHER2, AND RHEKJ 
ALSO DO A DKVINT 

PICKUP (RHAS) BEFORE THE ERROR CALL 
sREPORT THE ERROR 

3GO CHECK FOR MORE ATA’S 


sSTOP THE TIMER 


sGET THE DP® POINTER FROM THE QUEUE 
sCLEAR ATTENTION 

sSELECT ORIVE 

PREAD THE RPYO*S STATUS REG, 


sAND PUT IT IN RS 

p8AS THERE AW ERROR? 

sBR IF NO 

sCMECK THE DRIVE ACTIVE INDICATOR 
BRANCH IF LOLE 

sREAO ERKOR REGISTER 064 


pAND SAVE IT IN RS 
SSAVE RHI1/RPO4 REGISTERS 
sISSUE A DRIVE CLEAR 


pWAS "UNSAFE" CONDITION 817 
sBRANCH IF YES 
pINFORM USER OF ERROR 


RO,RD,RP #READ ORIVE STATUS REG, 81 

(SP),RS sSAVE RHDS1 IN RS 

(SP)¢ p°ERR" 847? 

28 sBR IF NO*eUNSAFE CLEARED 

Se, ,ORVSTACRi) sORIVE 15 UNSAFE 

PC, SVRK44 SSAVE Riii1/RPO4 REGISTERS 
R3,RHAS(R4) sCLEAR ATTENTION 

wha chp pINFORM USER OF UNSAFE ERROR 
sc 








